StringGrid mit Schleife per Button befüllen

[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;