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

← →
Петя © (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]

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

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

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

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

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