Einzelnen Beitrag anzeigen

Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: if then problem beim taschenrechner

  Alt 15. Nov 2007, 19:24
Also entweder hat dieser Freund dich veräppelt, oder er hat keine Ahnung.
Delphi-Quellcode:
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
if b=0 then
  Showmessage('Durch 0 darf nicht geteilt werden!')
else
begin
  Edit3.Text:=Floattostr(a/b);
end;
Das sieht für mich irgendwie logischer aus. Denn in deinem Code wird eine nicht initialisierte Variable abgefragt, nachdem der Fehler schon passiert ist. Übrigens sollte man StrToFloat vermeiden, da bei ungültiger Eingabe ein Fehler geschmisen wird, besser wären StrToFloatDef und TryStrToFloat.

Zum anderen Problem ein kleiner Tipp: Die n-te Wurzel einer Zahl ist als a^(1/n) definiert.
[edit] Herzlich willkommen! [/edit]
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat