Stringgrid & Arrays

[ibp]

Delphi-Quellcode:

c := 0;

for acol:=0 to 9 do
begin
  for arow:= 0 to 9 do
  begin
    stringgrid2.Cells[acol,arow] := inttostr(word1[c]);
    inc(c);
  end;
end;