Einzelnen Beitrag anzeigen

Crazy-MF

Registriert seit: 16. Mär 2004
Ort: Wolfenbüttel
19 Beiträge
 
Delphi 5 Enterprise
 
#1

StringGrid mit Schleife per Button befüllen

  Alt 10. Mär 2005, 12:40
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
Crazy-MF
  Mit Zitat antworten Zitat