Hier mal ein einfacher Zinsrechner:
[code:1]procedure TForm1.buttonClick(Sender: TObject);
begin
start:=strtofloat(edtverm.text);
geld:=start;
zins:=strtofloat(edtzins.text);
zeit:=strtoint(edtlauf.text);
for k:=1 to zeit do
start:=(start/100*zins)+start;
memo.Text:='Bei einem Kapital von '+floattostr(geld)+' Euro, einer Laufzeit von '+floattostr(zeit)+' Jahren, einem Zinssatz von '+floattostr(zins)+'% '+' erhalten sie ' +floattostr(start)+' Euro';
end;
procedure TForm1.loschenClick(Sender: TObject);
begin
memo.text:='';
edtlauf.Text:='Laufzeit';
edtzins.text:='Zinssatz';
edtverm.text:='Vermögen';
zins:=0;
start:=0;
geld:=0;
zeit:=0;
end;
end.[/code:1]
mfg KC
[code:1]procedure TForm1.buttonClick(Sender: TObject);
begin
start:=strtofloat(edtverm.text);
geld:=start;
zins:=strtofloat(edtzins.text);
zeit:=strtoint(edtlauf.text);
for k:=1 to zeit do
start:=(start/100*zins)+start;
memo.Text:='Bei einem Kapital von '+floattostr(geld)+' Euro, einer Laufzeit von '+floattostr(zeit)+' Jahren, einem Zinssatz von '+floattostr(zins)+'% '+' erhalten sie ' +floattostr(start)+' Euro';
end;
procedure TForm1.loschenClick(Sender: TObject);
begin
memo.text:='';
edtlauf.Text:='Laufzeit';
edtzins.text:='Zinssatz';
edtverm.text:='Vermögen';
zins:=0;
start:=0;
geld:=0;
zeit:=0;
end;
end.[/code:1]
mfg KC