Abgeleitet von der Messie Routine:
Delphi-Quellcode:
procedure TForm1.TntButton1Click(Sender: TObject);
var
i,j : integer;
begin
for i := 0 to SG.RowCount-1 do
for j := 0 to SG.ColCount-1 do
SG.Cells[j,i] := IntToStr((7*i)+j+1); // Fehler korrigiert, danke Ersan90
end;
Grüße
Klaus