Thema
:
Problem nach verwenden der inputbox
Einzelnen Beitrag anzeigen
Die Muhkuh
Registriert seit: 21. Aug 2003
7.332 Beiträge
Delphi 2009 Professional
#
7
Re: Problem nach verwenden der inputbox
13. Apr 2008, 13:20
zusammenfalten
·
markieren
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
;
Manuel
Blog reactivated
Zitat
Die Muhkuh
Öffentliches Profil ansehen
Besuche die Homepage von Die Muhkuh!
Mehr Beiträge von Die Muhkuh finden