keine ahnung funktioniert immer noch nich
hab hier mal den Ausschnitt aus dem Quelltext wo imprinzip das Problem is
procedure BerechnZins3;
var M : integer;
Nr, monatlicher_Betrag : String;
begin
Zinsen:= 0;
FOR M := 1 to 12 do ;
begin
Nr:= InttoStr(M);
monatlicher_Betrag:= Inputbox ('Eingabe monatlicher Betrag', Nr+'.monatlicher_Betrag','');
(monatlicher_Betrag:= TryStrToFloat(monatlicher_Betrag)
neues_Guthaben:= Guthaben + monatlicher_Betrag;
Zinsen:= Zinsen + neues_Guthaben*Zinssatz/1200;
end;
Die Zeiele die jez in klammern steht da weiß ich nich wie ich was machen soll