| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Петя ©   (2005-06-06 21:24:00) 

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

---

Dimaxx   (2005-06-06 21:40:00) [1]

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

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

---

evvcom   (2005-06-06 21:38:00) [2]

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

---

Петя   (2005-06-06 21:36:00) [3]

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

---

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

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

---

begin...end   (2005-06-06 21:33:00) [5]

Сорри.

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

---

begin...end   (2005-06-06 21:32:00) [6]

Функция:

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('первая строка ', 'вторая строка'))

---

Virgo_Style   (2005-06-06 21:31:00) [7]

А где вопрос?

---

Наверх