Скачать: CL | DM;

Вопрос по массивам   Найти похожие ветки 

← →
Ezorcist   (2006-03-28 08:47) [0]

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

---

← →
Рамиль ©   (2006-03-28 08:57) [1]

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"]);

---

← →
PZ   (2006-03-28 09:45) [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) [3]

Вроде бы так

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

---

← →
Рамиль ©   (2006-03-28 11:31) [4]

> PZ   (28.03.06 09:45) [2]


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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c