Wenn ich es richtig verstanden habe, meinst Du das:
Delphi-Quellcode:
procedure TForm1.TntButton1Click(Sender: TObject);
var
i,j,k : integer;
begin
k := 1;
for i := 0 to SG.RowCount-1 do
begin
for j := 0 to SG.ColCount-1 do
begin
SG.Cells[j,i] := IntToStr(k);
inc(k);
end;
end;
end;
Einfach Zeilenweise abhecheln, kannst das auch auf spaltenweise umstellen.
Grüße, Messie