Zählschleife

[foerster7892]

Delphi-Quellcode:

var
  Form4: TForm4; Startguthaben, Endguthaben, Zinsen, monatlicherBetrag, Zinssatz, laufvariable: real;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var a, b, Jahre: integer;
begin
  Zinsen := 0;
  Startguthaben := StrToFloat(Edit1.Text);
  zinssatz := StrToFloat(Edit2.Text);
  monatlicherBetrag := StrToFloat(Edit3.Text);
  Jahre := StrToInt(Edit4.Text);
  For b := 0 to Jahre do
  begin;
    For a := 1 to 12 do
    begin;
      Startguthaben := Startguthaben + monatlicherBetrag;
      Zinsen := 1/12*Startguthaben/100*Zinssatz+Zinsen;
    end;
  Endguthaben := Zinsen + startguthaben;
  end;
  Label2.Caption := FloatToStr(Endguthaben);
  Label1.Caption := FloatToStr(Zinsen);
end;
end.

So jetzt ist es soweit fertig
ich war doch noch garnicht fertig ich hab doch auch noch überlegt aber ein kleines problem gibt es noch wenn ich 0 Jahre eingebe dann hab ich das Problem das er die Schleife trotzdem einmal durchlaufen lässt
was kann ich tun

und danke schon mal