Taschenrechner 2.0 - Der Multi-Rechner

[LDProgrammierer]

Also ich habe das mit dem dividieren durch null verhindern leider irgenwie nicht geschafft obwohl ich folgenden Code verwendet habe if strtofloat(edit2.Text)= 0 then ShowMessage ('Durch null darf nicht dividiert werden'); dann kann er das Programm das öffnen, jedoch zeigt er nicht die Nachricht die ich gezeigt haben wollte, selbst wenn ich durch null dividiere. Wenn ich jedoch folgenden code schreibe :if strtofloat(edit2.Text)= 5 then ShowMessage ('Durch null darf nicht dividiert werden'); , also das er bei fünf eine Meldung ausgeben, soll und sonst weder Position noch irgendwas anderes am Code verändere erscheint doch eine Meldung. Was soll ich tun? Ich habe das Gefühl das liegt daran, das dann die Meldung floating point division by zero ausgegeben wird. Bitte helft mir

[Satty67]

Wenn eine Exception ausgelöst wird (hier Division durch 0) wird der nachfolgende Code bis zum Ende des Try Except bzw. Finally Block abgebrochen.

Vorm Berechnen auf 0 prüfen:

Delphi-Quellcode:

if strtofloat(edit2.Text)= 0 then 
  ShowMessage ('Durch null darf nicht dividiert werden')
else
  Berechnen;

[aurikel_Max]

Zitat von LDProgrammierer:

Also ich habe das mit dem dividieren durch null verhindern leider irgenwie nicht geschafft obwohl ich folgenden Code verwendet habe if strtofloat(edit2.Text)= 0 then ShowMessage ('Durch null darf nicht dividiert werden'); dann kann er das Programm das öffnen, jedoch zeigt er nicht die Nachricht die ich gezeigt haben wollte, selbst wenn ich durch null dividiere. Wenn ich jedoch folgenden code schreibe :if strtofloat(edit2.Text)= 5 then ShowMessage ('Durch null darf nicht dividiert werden'); , also das er bei fünf eine Meldung ausgeben, soll und sonst weder Position noch irgendwas anderes am Code verändere erscheint doch eine Meldung. Was soll ich tun? Ich habe das Gefühl das liegt daran, das dann die Meldung floating point division by zero ausgegeben wird. Bitte helft mir

Ehm .. ich bin mir nicht sicher, hast du nach deinem IF StrToFloat(edDivisor.Text) = 0 auch ein Exit? Denn es darf ja nichts mehr geschehen, wenn du durch 0 dividierst.
Also:

Delphi-Quellcode:

IF StrToFloat(edDivisor.Text) = 0 THEN
begin
    ShowMessage('..');
    Exit;
end;

[himitsu]

Ich würde auch noch auf StrToFloatDef und TryStrToFloat hinweisen.

[Satty67]

Die beiden Funktionen würden sich fast schon aufdrängen.

Alternativ evtl. mit Try Except arbeiten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y : double;
begin
  y := 0;
  try
    x := 1 / y;
    // ShowMessage wird nie ausgeführt,
    // da der Code davor eine Exception ausgelöst hat
    ShowMessage(FloatToStr(x));
  except
    on E:EZeroDivide do
      ShowMessage('Durch 0 darf nicht dividiert werden.');
  end;
end;

€: geht ja um Gleitkommazahlen, Code angepasst

[LDProgrammierer]

Nein ich verwende keine doubles sondern Real :var a, b, c : Real; dann geht es ganz normal weiter a:= strtofloat(edit1.Text) usw.

[mkinzler]

Hallo LDProgrammierer,

was spricht den gegen die Verwendung von Delpi-Tags?
Ich habe in diesem Thread hier deine Beiträge schon mehrmals in der Hoffnung korrigiert, dass du es merkst!

Ich bitte dich in zukünftigen Beiträgen, bitte die richtigen Tags zu verwenden.

[Satty67]

Zitat von LDProgrammierer:

Nein ich verwende keine doubles sondern Real

Sind ja beides Gleitkommazahlen, real ist nur der kleinere Bruder

Verwendung von Real macht aber imho seit den Pentium-Prozessoren mit integriertem Co-Prozessor keinen Sinn mehr. Man könnte also gleich Double mit höherer Genauigkeit nehmen. Meine selbst in der Delphi 5 Hilfe wird schon geschrieben, dass Real im Prinzip veraltet ist.
Nachdem ich einfach in die Hilfe geschaut hatte, hab' es wohl mit Real48 verwechselt.

Real in aktuellen Version ist identisch mit Double.

[OrNEC]

Zitat von Satty67:

Meine selbst in der Delphi 5 Hilfe wird schon geschrieben, dass Real im Prinzip veraltet ist.

Und was heißt veraltet? Ist Real gebrechlich und das Gedächtnis lässt nach oder wie?