Taschenrechner : ' ' ist kein Gleitkommawert

[patti]

Zitat von himitsu:

Bring hierfür blos niemanden diesen Sch* mit den Try-Except bei.

Hm, hab gerade etwas drüber nachgedacht und in Delphi ist das vielleicht wirklich nicht so das wahre. Java kennt da ein etwas ausgefeilteres try-catch-Konstrukt, bei dem verschiedene Exceptions unterschiedlich behandelt werden können, da ists dann ein leichtes, z.B. eine NumberFormatException abzufangen und entsprechend zu behandeln:

Code:

try {
  int i = Integer.parseInt("a");
} catch (NumberFormatException ex) {
  // whatever
}

Vorteil ist m.M.n., dass ich hier alle Möglichkeiten habe, auf eine Fehl-Eingabe zu reagieren, da bin ich bei den TryStrTo*-Methoden schon etwas eingeschränkter. Dann seh ich eigentlich auch kein Problem mehr beim Debuggen Gibts in Delphi eigentlich eine entpsrechende Möglichkeit?

Grüße

[Medium]

Delphi-Quellcode:

try
  //foo
except
  on e: SomeSpecialExceptionClass do ...
  on e: SomeLessSpecialExceptionClass do ...
  on e: SomeFairlyGeneralExceptionClass do ...
  ...
  on e: Exception do ...
end;

Dennoch ist es nicht sinnvoll diesen Fall mit Exceptions zu behandeln, da ja eine erwartete Fehleingabe vorliegt.

[patti]

Zitat von Medium:

Dennoch ist es nicht sinnvoll diesen Fall mit Exceptions zu behandeln, da ja eine erwartete Fehleingabe vorliegt.

Gut, darüber lässt sich diskutieren. Danke für das Beispiel!

Grüße

[Medium]

Naja, er setzt mit "edit1.Text := '';" den Inhalt ja selbst, programmseitig, auf einen nicht wandelbaren Wert, somit muss das als definierter Zustand angesehen werden, der alles andere als eine Ausnahme ist. Find ich. Wo wir schon mal dabei sind =)

[himitsu]

Kennt Delphi auch,

Delphi-Quellcode:

try

except
  on E: EIrgendwas do begin

  end;
  on E: Exception do begin

  end;
end;

Aber da der "Debugger" Exceptions standardmäßig erstmal anzeigt, wenn sie ausgelöst werden, auch wenn sie dann über Try-Except weggefangen werden.
Wie gesagt, im laufenden Betrieb mag es "funktionieren", aber vorallem im Debugger isses blöd.
Klar könnte man bestimmte Excepionklassen im Debugger ausschließen, aber dann isses blöd, wenn man soeine Exception von wo anders nicht mehr so schön mitbekommt.


[edit] ups, da hab ich wohl 2 Beiträge mittendrin übersehn

[Ric]

Danke für eure antworten,

hab jetzt rausbekommen woran es lag

 if edit1.Text = '' then exit; Diese umwandlung war richtig, aber falsch positioniert.

[himitsu]

Zitat von Ric:

if edit1.Text = '' then ... Diese umwandlung war richtig,

Was für eine Umwandlung?

Tipp: Gib mal irgendwo ein Leerzeichen, einen Buchstaben oder einen zweiten Punkt in dein Edit ein.

[Ric]

Es hat alles prima geklappt, erscheint auch keine Fehlermeldung mehr
So sieht das jetzt aus

Delphi-Quellcode:

procedure TForm1.btn_malClick(Sender: TObject);
begin
  if   edit1.Text = '' then exit;
  opperator := '*';
  if  zwischenergebnis = 0  then
  begin
    try
      zwischenergebnis := strtofloat(edit1.text);
    except
      zwischenergebnis := 0;
    end;
    edit1.Text := '';
  end
  else
  begin
      edit1.Text  := FloatToStr(zwischenergebnis * strtofloat(edit1.text));
      zwischenergebnis := StrToFloat(edit1.text);
      oppbool := true;
  end;
end;

[himitsu]

Zitat:

erscheint auch keine Fehlermeldung mehr

Hast du dir alle Beiträge durchgelesen?

[DeddyH]

Anscheinend nicht. Aber die erste Abfrage lässt sich ja beliebig erweitern.

Delphi-Quellcode:

if (Edit1.Text = '') or (Edit1.Text = ' ') or (Edit1.Text = 'A') or (Edit1.Text = 'a') 
{...} or (Edit1.Text = 'Meine Fresse, was so alles in einem String stehen kann') then exit;