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

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

Вопрос по массивам [D7, XP]

Ezorcist ©   (2006-03-28 08:47:00) 

Есть массив от 1 до N. Как написать процедуру для его заполнения строками, котору можно вызвать так:
       Write('Str1','Str2',...'StrN')
И не важно сколько строчек я укажу при ее вызове, могу одну могу и сто. Таесть заполнятся только те ячеки, значение которых указаны в скобках (по порядку от начала)

---

Рамиль   (2006-03-28 11:31:00) [1]

> PZ   (28.03.06 09:45) [2]


> SetLength(a, High(AArray)+1);

Нифига, в вопросе четко сказано
> Есть массив от 1 до N.

---

PZ   (2006-03-28 09:45:00) [2]

> Ezorcist   (28.03.06 8:47)
> Рамиль ©   (28.03.06 8:57) [1]

Var
 a : array of string;

procedure WriteArray(AArray: array of string);
var
 i: integer;
begin
 SetLength(a, High(AArray)+1);
 for i := 0 to High(AArray) do
   a[i] := AArray[i];
end;


---

ArtemESC   (2006-03-28 09:45:00) [3]

Вроде бы так

for i := 0 to High(Arr) do
  Write(Arr[i]);

---

Рамиль   (2006-03-28 08:57:00) [4]

procedure WriteArray(AArray: array of string);
var
 i: integer;
begin
 for i := 0 to High(AArray) do
   a[i] := AArray[i];
end;
Вызов

WriteArray(['Str1', 'Str2', ... , 'StrN']);

---

Наверх