Hallo zu Frage zwei meint er vielleicht das hier:
[code=delphi]
if code = 0 then
begin
Endkapital :=(Round(100*(Anfangskapital * exp (Jahre * ln (1+ Zinssatz/100))))/100) ;
Label2.Caption := FloatToStr (Endkapital);
end
else showmessage ('Eingabefehler:' +#13+
'Variable = Laufzeit' +#13+
'Stelle =' +FloatToStr(code) +#13+
'Falsches Zeichen=' + Edit1.text
Code:
+#13#13+
'Bitte Eingabe wiederholen...');
Die Messages nach except werden ja glaubig nur beim arbeiten mit der .exe angezeigt.
Also wenn du die .exe Datei deines Programmes ausführst, müsste die Fehlerabfrage auch ohne meine Änderung klappen.
Zu Frage 1 hab ich aber jetzt keine Idee...