kredittilgung

[angos]

Hi,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, Jahr, m: Integer;
  kredit, zinsen, Rate, Tilgung, Restschuld: real;

begin
  Kredit := strtofloat(edit1.text);
  zinsen := strtofloat(edit4.text);
  Jahr := strtoint(edit3.text);
  rate := strtofloat(edit2.text);
  m := jahr * 12;
  i := 1;
  for i := 1 to m do // Diese for-Schleife geht nur bis....
  begin
    Zinsen := (Kredit * zinsen) / (100 * 12);
    Tilgung := Rate - Zinsen;
    Restschuld := Kredit - Tilgung;
  end; // <----- ... HIER ...
  with form1.StringGrid1 do
  begin
    cells[0, i] := inttostr(i); // ...aber hier greifst du auf i zu.
    cells[1, i] := floattostr(zinsen);
    cells[2, i] := floattostr(tilgung);
    cells[3, i] := floattostr(restschuld);

    Kredit := restschuld;
    rowcount := m;
  end;
  // Die schleife sollte bis hier gehen 
end;

Gruß
angos