Форум: "Основная";
Текущий архив: 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.041 c