"Ungültige Gleitkommaoperation" Fehler finden?

[himitsu]

Es gib sowas wie Eurekalog und das Andere, dessen Name ich immer vergesse,
die bieten dir bei Exceptions praktiche Zusatzinfos an, wie z.B. einen Stacktrace.

Auch in den Jedi ist etwas enthalten.


Nein, da sind ja nur Integer, also Ganzzahlen, und keine Gleitkomma-/Fließkommazahlen.

[AlexII]

Ich dachte einfach, dass '' (also leerer String) nicht in Int konvertiert werden kann.

[himitsu]

'' kann auch nicht nach Integer konvertiert werden, genauso wie alles was keine Zahl ist, wie z.B. '-', 'a', 'a1' usw.

TryStrTo... und StrTo...Def
if TryStrToInt(SendBitrate, i) and (i >= 16) and (i <= 256) then
* erspart das doppelte Umwandeln
* und kann auf Fehler prüfen, ohne daß es zu einer Exception kommt

[AlexII]

Zitat von himitsu:

'' kann auch nicht nach Integer konvertiert werden, genauso wie alles was keine Zahl ist, wie z.B. '-', 'a', 'a1' usw.

TryStrTo... und StrTo...Def
if TryStrToInt(SendBitrate, i) and (i >= 16) and (i <= 256) then
* erspart das doppelte Umwandeln
* und kann auf Fehler prüfen, ohne daß es zu einer Exception kommt

Was ist in diesem Fall i?

[Helmi]

eine (lokale) Variable des Typs Integer

TryStrToInt versucht den String in einen Integer (i) zu wandeln
ist es möglich (Result = true) dann steht in i der gewandelte Wert
geht's nicht, dann sollte man auf den Rückgabewert Result = false reagieren

[himitsu]

Zitat von AlexII:

Was ist in diesem Fall i?

TryStrToInteger

[TiGü]

@AlexII: Arbeitest du mit TWebBrowser, ActiveX-Elementen oder OpenGL?

Wenn ja, versuche folgendes zu implementieren, irgendwo in einen initialization- oder class constructor-Abschnitt.

Delphi-Quellcode:

uses
  System.Math;
...
var
  ExceptionMask : TArithmeticExceptionMask;
begin
  ExceptionMask := GetExceptionMask;
  Include(ExceptionMask, exInvalidOp);
  SetExceptionMask(ExceptionMask);
end;

Siehe auch:
http://docwiki.embarcadero.com/Libra...tExceptionMask

[AlexII]

Danke Dir, aber ich habe eigentlich keine arithmetischen Operationen... aber ich arbeite mit ListBoxen. Ich vermute schon, dass der Fehler damit verbunden ist, dass da irgendwo auf ItemIdex -1 zugegriffen wird, aber wo finde ich auch nicht.

[AlexII]

Dann muss es wohl an dieser Zeile liegen, oder an der SendBitrate an anderer Stelle... weil das ist fast das Einzige was ich neu hinzugefügt habe, bevor der Fehler kam.

if (SendBitrate <> '') and (StrToInt(SendBitrate) >= 16) and (StrToInt(SendBitrate) <= 256) then Werde es mit TryStrToInt versuchen.

[DeddyH]

Das müsste aber ggf. einen EConvertError auslösen, kann es also eigentlich auch nicht sein. Wie schon oben angedeutet musst Du irgendwo mit Gleitkommazahlen rechnen (vielleicht auch indirekt über irgendwelche Komponenten).