In Delphi ein Kapital mit einer ListBox berechnen

[taaktaak]

Eine Schleife wäre in diesem Fall wohl angebracht.
Der Anfangswert für das Folgejahr ist das Ergebnis des Vorjahres...

[Funnygirly]

ah ok und wie sollte ich das jetzt am besten machen?

[DeddyH]

An eine Schleife hatte ich auch erst gedacht, aber es soll ja erst auf Benutzereingabe weitergerechnet werden.

[Funnygirly]

ok..egal ich lass des jetzt so..morgen werd ich nochma drüber nachdenken....hauptsache des ding rechnet mir überhaupt was aus
danke das ihr mir so viel geholfen habt

[DeddyH]

Kein Problem, den Rest kriegen wir auch noch zusammen hin

[Funnygirly]

vielen dank

[taaktaak]

Zitat:

aber es soll ja erst auf Benutzereingabe weitergerechnet werden

Aua, ja, "richtig" lesen hilft oft, unsinnige Aussagen zu vermeiden.
Sorry

[kamel08]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
EdtKapital: TEdit;
EdtZinssatz: TEdit;
EdtErgebnis: TEdit;
LstBox: TListBox;
BtnBerechnen: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
procedure BtnBerechnenClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BtnBerechnenClick(Sender: TObject);
var startkapital,zinssatz:extended; // kapital umdefiniert in 'startkapital'
kapital:extended; // für das Ergebnis
begin
startkapital := StrToFloat(edtkapital.text);

Zinssatz := StrToFloat(edtzinssatz.text);
Zinssatz := (zinssatz/100);

kapital := startkapital + (startkapital * Zinssatz);

edtergebnis.Text := FloatToStr(kapital);

LstBox.Items.Add(FloatToStr(kapital));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edtkapital.text := '';
edtzinssatz.text := '';
edtergebnis.Text := '';
end;

end.

[kamel08]

und dann die Folgejahre:

procedure TForm1.BtnBerechnenClick(Sender: TObject);
var startkapital,zinssatz:extended; // kapital umdefiniert in 'startkapital'
kapital:extended; // für das Ergebnis
begin
startkapital := StrToFloat(edtkapital.text);

Zinssatz := StrToFloat(edtzinssatz.text);
Zinssatz := (zinssatz/100);

kapital := startkapital + (startkapital * Zinssatz);

edtergebnis.Text := FloatToStr(kapital);

LstBox.Items.Add(FloatToStr(kapital));

edtkapital.text := FloatToStr(kapital);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edtkapital.text := '';
edtzinssatz.text := '';
edtergebnis.Text := '';
LstBox.Clear;
end;