StringGrid mit Schleife per Button befüllen

[Crazy-MF]

Hallo allerseits....
ich hab jetzt schon 2 Stunden gesucht und immer noch nichts gefunden.

Ich habe folgendes Problem:
Ein StringGrid soll wenn ein Button gedrückt wird mit bestimmten Werten aus bestimmten Feldern gefüllt werden. Aber nur eine Zeile. Und wenn ich ich wieder den Button drücke soll er erst eine Zeile runter gehen und dann wieder die Werte eintragen.
Ich muss dazu sagen, dass ich nen persönliches Problem mit Schleifen habe

Vielleicht kann mir einer weiterhelfen

So sieht mein Code gerade aus das Problem ist nur das er alle Felder füllt.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 i  : Integer;
 GP : Extended;
begin

  GP := (VKN*SpinEdit1.Value);

  for i := 1 to StringGrid1.RowCount do
    begin
      StringGrid1.Cells[1,i] := Edit1.Text;
      StringGrid1.Cells[2,i] := Edit2.Text;
      StringGrid1.Cells[3,i] := SpinEdit1.Text;
      StringGrid1.Cells[4,i] := Label4.Caption;
      StringGrid1.Cells[5,i] := Format('%8.2f',[GP])+' EUR';
    end;

end;

Ich hoffe damit kann man arbeiten

schon mal nen schönen Dank

[toms]

Hi,

Dafuer brauchst du gar keine Schleif.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i : Integer;
  GP: Extended;
begin
  with StringGrid1 do
  begin
    i := RowCount;
    RowCount := RowCount + 1;
    GP := (VKN * SpinEdit1.Value);
    Cells[1, i] := Edit1.Text;
    Cells[2, i] := Edit2.Text;
    Cells[3, i] := SpinEdit1.Text;
    Cells[4, i] := Label4.Caption;
    Cells[5, i] := Format('%8.2f', [GP]) + ' EUR';
  end;
end;