Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Delphi Zinsrechner

   
    by Ginko, 14. Nov 2008
  Ach und die Fehlerabfrage sollt gleich zu anfag beginnen und nicht wenn schon mit Werten
  gerechnet wurde, also so:
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  try
  val (edit1.text, anfangskapital, code); // Eingabe
  val (edit3.text, Jahre, code2);
• Forum: Object-Pascal / Delphi-Language

  Re: Delphi Zinsrechner

   
    by Ginko, 14. Nov 2008
  Es wird mit der Abfrage If code = 0 abgefragt ob ein Fehler
  bei der Umwandlung von dem Text im Edit1 Feld in eine Zahl gemacht wurde.
  
  Der Ausdruck 'Varible = Laufzeit' ist ein String, also feststehend
  
  Ach er meint wohl damit die Varible, der der Wert aus dem Edit Feld zugewiesen wurde. Ich hab es unten mal angepasst.
  
  Ich glaube ich bin jetzt etwas verwirrt :spin2:
• Forum: Object-Pascal / Delphi-Language

  Re: Delphi Zinsrechner

   
    by Ginko, 13. Nov 2008
  Hallo zu Frage zwei meint er vielleicht das hier:
  
  
  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+