Herzlich willkommen in der Delphi-PRAXiS, janton.
Der Code aus dem vorigen Beitrag liefert dir das kleine Ein-Mal-Eins, aber mit nur wenigen Änderungen machst du daraus das, was du brauchst. Fertigen Code bekommst du leichter, wenn du den Verdacht ausräumen kannst, dass es sich bei deiner Aufgabenstellung nicht um eine Schulaufgabe handelt.
Delphi-Quellcode:
procedure FillGrid(sg: TStringGrid; nCols, nRows: Integer);
var
iCol, iRow: Integer;
begin
with sg do
begin
RowCount := nRows;
ColCount := nCols;
FixedCols := 0;
FixedRows := 0;
for iRow := 0 to Pred(nRows) do
for iCol := 0 to Pred(nCols) do
Cells[iCol, iRow] := IntToStr(Succ(iRow * nCols + iCol));
end;
end;
Dir unbekannte Befehle solltest du in der Delphi Online-Hilfe nachschlagen.
Freundliche Grüße