Tstringgrid auffüllen

[philiph]

Hallo,
wie kann ich alle noch leeren Felder in einem Stringgrid mit einem zufällig generierten Buchstaben 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

[Klaus01]

.. und im Form1.create das randomize nicht vergessen

Grüße
Klaus