Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#7

Re: Problem nach verwenden der inputbox

  Alt 13. Apr 2008, 13:20
Delphi-Quellcode:
 procedure BerechnZins3;
var M : integer;
    Nr, monatlicher_Betrag : String;
    neuer_Betrag: Integer; //Du brauchst auch eine Variable für die Ganzzahl :P
begin
  Zinsen:= 0;
  FOR M := 1 to 12 do
    begin
      Nr:= InttoStr(M);
      monatlicher_Betrag:= Inputbox ('Eingabe monatlicher Betrag', Nr+'.monatlicher_Betrag','');
      neuer_Betrag := StrToIntDef(monatlicher_Betrag, 0);
      neues_Guthaben:= Guthaben + neuer_Betrag;
      Zinsen:= Zinsen + neues_Guthaben*Zinssatz/1200;
    end;
end;
  Mit Zitat antworten Zitat