StringGrid Cells beschriften

[Klaus01]

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