Delphi7 - перечисление массива

[barhat]

Delphi 7 - не могу понять как перечислить поочерёдно элементы в строках массива и записать их в компонент Memo. Подскажите где у меня затык?

procedure TForm1.Button1Click(Sender: TObject);
var disk:array[1..3,1..3] of string;
i,j,k:integer;
begin
disk[1,1]:='Ïåðâàÿ ñòðîêà ìàññèâà..1';
disk[1,2]:='Âòîðàÿ ñòðîêà ìàññèâà..1';
disk[1,3]:='Òðåòüÿ ñòðîêà ìàññèâà 1';

disk[2,1]:='Ïåðâàÿ ñòðîêà ìàññèâà..2';
disk[2,2]:='Âòîðàÿ ñòðîêà ìàññèâà..2';
disk[2,3]:='Òðåòüÿ ñòðîêà ìàññèâà 2';

disk[3,1]:='Ïåðâàÿ ñòðîêà ìàññèâà..3';
disk[3,2]:='Âòîðàÿ ñòðîêà ìàññèâà..3';
disk[3,3]:='Òðåòüÿ ñòðîêà ìàññèâà 3';

for i:=1 to Length(disk) do
Memo1.Lines.Add(disk[1,1]);

  for j:=1 to Length(disk) do
  Memo1.Lines.Add(disk[2,1]);

    for k:=1 to Length(disk) do
    Memo1.Lines.Add(disk[3,1]);



end;

end.

[maLoy*508]

примерно так:

....
 for i := 1 to 3 do
   for j := 1 to 3 do
     Memo1.Lines.Add(disk[i, j]);
...

[barhat]

ага, значит вложенный цикл, с обращением по индексу матрицы.

а как компилятор определил, что те переменные которые я объявил i j подойдут к переменной disk? как Add извлечет именно по i j, я там ведь указал индексы числовые... поясните плиз

[xoodoo]

как компилятор определил, что те переменные которые я объявил i j подойдут к переменной disk?

Ты сам ему об этом сказал в строке

var disk:array[1..3,1..3] of string;

[Stilet]

как компилятор определил

Индекса массивов - целочисленные элементы. Соответственно все ординального типа переменные (в том числе Integer, byte и т.д.) подходят на роль индексов для массивов.

[barhat]

ага, спасибо, буду привыкать