Warum wird die Exception nicht geworfen ? ( gelöst )

[Corpsman]

Hi Leuts,

ich hab hier folgenden Code :

Delphi-Quellcode:

Function ErstellFunction(Value: String): Pointer;
Var
  p: PVariable;
Begin
  new(p);
  p^.Funktionsaufrufzeiger := False;
  setlength(p^.uebergabeparameter, 0);
  p^.Name := 'const';
  p^.Line := -1;
  If (Value = 'true') Or (Value = 'false') Then Begin
    p^.Typ := bool;
    If Value = 'true' Then
      p^.Value := 1
    Else
      p^.Value := 0;
  End
  Else Begin
    p^.Typ := int;
    Try
      p^.Value := strtoint(Value);<-- Hier sollte die Exception geworfen werden ..
    Except
      SolverErrorString := SolverErrorString + #13#10'Error "' + Value + '" is not bool or int ( maybe "' + value + ' is a not declared variable.';
      Raise;
    End;
  End;
  result := p;
End;

Wenn ich dieser Function den Wert Value = 'x1' übergebe dann wirft sie keine Exception und ich versteh nicht warum.

Anbei noch ein Screenshot vom Debugger.

Hat jemand ne Idee was ich da machen kann, oder hab ich einen Compilerswitch vergessen ?

Das Irrwitzige ist übergebe ich z.b. y1 oder auch nur r dann wird eine Exception geworfen. nur bei x1 nicht.

Er wandelt das übrigens zu 1 um

[sirius]

Könte es sein, dass er x1 als hexadezimale Zahl interpretiert?

[Corpsman]

Boa du hast Recht, wenn ich xFF übergebe dann klappts und er gibt mir 255 zurück.

Da stellt sich mir natürlich die Frage wieso der das macht, und wie ich das verhindern kann.

ich habe hier definitiv nur Dezimalzahlen in meinem Programm

und ich will das da ne AV kommt.
[Edit]
ist das Makaber, ich hab das grad mal mit nem Edit getestet, das ist wirklich immer so egal ob das x groß oder klein ist...

laut Delphi Hilfe steht da nur Hexzahl, aber wie die repräsentiert sind weis ich natürlich nicht.

d.h. ich mus mir nu ne Function bauen die das Tatsächlich abbprüft ob da chars drin sind ..., oder gibts nen Eleganten weg ?

[sirius]

"$" solltest du auch ausschließen

[Corpsman]

ja das x und $ gehn hab ich grad auch gemerkt.

Da ich Garantieren kann das length(Value) >= 1 ist hab ichs nu so gelöst

Delphi-Quellcode:

    p^.Typ := int;
    Try
      If Not (value[1] In ['0'..'9']) Then // <-- Verhindern das Hex zahlen Akzeptiert werden.
        Raise exception.create('');
      p^.Value := strtoint(Value);
    Except
      SolverErrorString := SolverErrorString + #13#10'Error "' + Value + '" is not bool or int ( maybe "' + value + ' is a not declared variable).';
      Raise;
    End;
  End;

ein Einfaches Raise darf man anscheindend nicht machen.

Aber so ganz schmecken tut mir diese Lösung natürlich nicht.

[sirius]

Aber du kennst auch TryStrToInt?

Ein einfaches Raise einer exception geht nicht, du kannst maximal die Windows-Funktion Raiseexception(0,0,0,nil) nutzen. Aber dann erfährt auch niemand warum eine Exception aufgetreten ist, und das ist nicht der Sinn der Sache.

[Corpsman]

ich kannte bisher nur strtointdef.

Aber da 'x1' ja ein "Gültiger" übergabewert ist, hätte TryStrtoint wohl auch nichts gebracht.

[sirius]

Nee, für die x1 nicht, das stimmt.

aber du lässt bewusst erst eine Exception werfen, ums sie dann gleich wieder aufzufangen. Das kostet Zeit.

Delphi-Quellcode:

p^.Typ := int; 
If Not (value[1] In ['0'..'9']) Then // <-- Verhindern das Hex zahlen Akzeptiert werden. 
  Raise exception.create('...'); 
if not trystrtoint(Value,p^.Value) then
Begin
  SolverErrorString := SolverErrorString + #13#10'Error "' + Value + ...;
  Raise exception.create('...'); 
End;

[Corpsman]

ja da hast du recht, das könnte man evtl elleganter machen.

Die Exception brauche ich weil der Aufrufer die mitbekommen soll.
Auf die Zeit kommts mir in dem Speziellen Fall zum Glück nicht so arg an, weil das ja schlieslich der Abbruch des Compilierens ist.

Aber du hast schon recht, ich sollte hergehen und da evtl eine "schönere" logik einbaun.