kredittilgung

[DeddyH]

Ich habe es jetzt nicht im Einzelnen nachvollzogen, aber IMHO steht ein end an der falschen Stelle. Versuch es mal so:

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
begin
  Zinsen:=(Kredit*zinsen)/(100*12);
  Tilgung:= Rate-Zinsen;
  Restschuld:=Kredit-Tilgung;
//end; <-- nicht hier
  with form1.StringGrid1 do
    begin
      cells[0,i]:=inttostr(i);
      cells[1,i]:=floattostr(zinsen);
      cells[2,i]:=floattostr(tilgung);
      cells[3,i]:=floattostr(restschuld);

      Kredit:=restschuld;
      rowcount:=m;
    end;
end; //sondern hier
end;