Hilfe Zinseszins

[foerster7892]

Delphi-Quellcode:

var
Form3: TForm3;
Guthaben, ZinsenInProzent, Laufzeit: real;

implementation
uses Math;
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Label1.Caption := FloatToStr (Power(Guthaben * (1 + ZinsenInProzent)/100,Laufzeit));
Label5.Caption := FloatToStr ((Guthaben * ZinsenInProzent *Laufzeit)/100);
end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
Guthaben := StrToFloat(Edit1.Text);
end;

procedure TForm3.Edit2Change(Sender: TObject);
begin
ZinsenInProzent := StrToFloat(Edit2.Text);
end;

procedure TForm3.Edit3Change(Sender: TObject);
begin
Laufzeit := StrToFloat(Edit3.Text)
end;

end.

Ich hab das jetzt so geändert aber es läuft trotzdem nicht(nur so wie zuvor)


[edit=Matze]Bitte zukünftig die [delphi]-Tags selbst setzen! MfG, Matze[/edit]