Tstringgrid auffüllen

[marabu]

Zum Beispiel so:

Delphi-Quellcode:

procedure RandomFillGrid(sg: TStringGrid);
var
  iCol, iRow: Integer;
begin
  with sg do
    for iRow := FixedRows to Pred(RowCount) do
      for iCol := FixedCols to Pred(ColCount) do
        if Cells[iCol, iRow] = '' then
          Cells[iCol, iRow] := Chr(Ord('A') + Random(26));
end;

Grüße vom marabu