Ich verstehe allerdings nicht, was für einen Mehrwert das bringen soll, bzw. wie man dort noch while einbinden soll.
Ich hätte jetzt noch geschrieben:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
x := StrToFloat(Edit1.Text);
Zinssatz := StrToFloat(Edit2.Text);
Zielkapital := StrToFloat(Edit3.text);
while (x< Zielkapital) do
begin
repeat
X := X * (Zinssatz/100 + 1);
Memo1.Lines.Add(FloatToStr(x));
until X >= Zielkapital;
end;
Laufzeit := Memo1.Lines.Count;
Button1.Caption:= IntToStr(Laufzeit) + ' Monate';
Aber das ginge ja auch ohne While-Schleife? Beziehungsweise mit ner einfachen If...then-Struktur