Stringgrid füllen

[janton]

Hallo!
kann mir jemand sagen wie ich bei delphi 7 ein stringgrid von 1 bis 100 nach reihenfolge mit einem button klicken mache? also es sollen immer 10 zahlen in eine zeile und dann soll es in der nächsten zeile weiter gehen. Wer könnte mir dein code mal geben?
danke!

[ULIK]

Hi,

fertigen Code gibt's nicht Aber schau Dir mal die Hilfe an: Cell[i,j]


Grüße,
Uli

[grenzgaenger]

in etwa so

Delphi-Quellcode:

var i, j: integer;
begin
 with sg do
 begin
  for i := 1 to 10
   for j := 1 to 10
    cells[j,i] := inttostr(i*j);
 end;
end;

sg = stringgrid; natürlich musst du die eigentschaften zuvor entsprechend setzen... <HTH>

[marabu]

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

[janton]

ja es handelt sich um eine schulaufgabe. wir sollten uns irgendwo erkundigen wie das funktionieren könnte und dann dachte ich mir, dass ich hier ja mal fragen könnte...
vielen dank