Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

будет слаживать произвольное количество строк!!   Найти похожие ветки 

 
Петя ©   (2005-06-06 21:24) [0]

Удалено модератором
Примечание: СПАМ


 
Virgo_Style ©   (2005-06-06 21:31) [1]

А где вопрос?


 
begin...end ©   (2005-06-06 21:32) [2]

Функция:

function MyConcat(Strings: array of string): string;
var
 i: integer;
begin
 Result := "";
 for i := 0 to High(Strings) do
   Result := Result + Strings[i]
end


Пример использования:

ShowMessage(MyConcat("первая строка ", "вторая строка"))


 
begin...end ©   (2005-06-06 21:33) [3]

Сорри.

ShowMessage(MyConcat(["первая строка ", "вторая строка"]))


 
Петя ©   (2005-06-06 21:34) [4]

[Error] Unit1.pas(39): Constants cannot be used as open array arguments
Вот и вопрос!!!!


 
Петя ©   (2005-06-06 21:36) [5]

ОК!!!!
Большое спасибо!!!!!


 
evvcom ©   (2005-06-06 21:38) [6]

А что такое "слаживать"? :)


 
Dimaxx ©   (2005-06-06 21:40) [7]

Уважаемый Петя! Слаживать строки не получится - как ни старайся! Строки можно соединять.

Не изучив один язык нечего кидаться на второй.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.036 c
1-1117547810
alertus
2005-05-31 17:56
2005.06.29
Использование технологии MMX


14-1117471924
Cerberus
2005-05-30 20:52
2005.06.29
Новый значёк


6-1111569342
TankMan
2005-03-23 12:15
2005.06.29
Не понимаю - почему ошибка при копировании через ClientSocket?:(


11-1087458500
DmitryS
2004-06-17 11:48
2005.06.29
Архив форума KOL


4-1115364527
Colci
2005-05-06 11:28
2005.06.29
КАК Отключить интернет????





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский