Funktion gibt falschen Typ zurück

[Matze]

Hast du Jens' Vorschlag umgesetzt?

INVHEXDW() gibt dir einen Int64 zurück. Den versuchst du einem Int (n) zuzuweisen.

Klar, dass da möglicherweise etwas schief geht.

Edit: Da war ich zu langsam.

[himitsu]

Delphi-Quellcode:

Function INVHEXDW(a:string):int64;
Begin
    If a='' then a:='00000000';
    while length(a)<8 do
        a:='0'+a;
    result:= Int64(INVHEXB(a[1]+a[2]))* 16777216 + Int64(INVHEXB(a[3]+a[4])) * 65536 +
             INVHEXB(a[5]+a[6])* 256 + INVHEXB(a[7]+a[8]);
end;

INVHEXB gibt bestimmt ein Byte zurück?
Da dein Delphiprogramm 32 Bit ist, wird standardmäíg maximal mit Integer gerechnet, wenn man nix anderes anibt.

Zitat von R2009:

zumindest erwarte ich eine ordentliche Fehlermeldung.

Dann Schalte gefälligst mal die Bereichs- und Überlaufprüfungen an, wenn du diese Fehlermeldungen haben willst.

Und die "langsame"/aufwändige Multiplikation würde ich du eine schöne/einfache Bitverschiebung (shl) ersetzen.

PS: Das IF könnte man sich sparen, da das WHILE diesen Fall mit behandelt.

HexToBin oder StrToInt64 StrToInt64('$0' + a)

[R2009]

Hi hinmitsu,

ich glaube ich rede chinesisch, zumindest scheint mich hier keiner zu verstehen.

Die Überlaufprüfung ist eingeschaltet.

Trotzdem wirft das Programm mir, wenn es nicht in der IDE läuft, die Microsoft Katastrophemmeldung.

Trotzdem danke für deine Anregungen, werde ich umsetzen.

Aber trotzdem:
ich hatte nicht gefragt wie man das ganze einfacher machen kann, ich will wissen ob man irgenmdwie
den Übergabetyp, der aufrufenden Funktion, feststellen kann.

Grüsse
Rainer
PS: Ist schon blöd wenn man an Programmen rummurksen muss die andere zusammengebastelt haben.
Ich will so wenig wie möglich ändern, ich will nur, dass eine ordentliche Fehlermeldung erscheint.
Und ich will die MS Katastrophe verhindern.

[Satty67]

Also tut mir Leid, war mir in Verbindung mit dem Betreff nicht ganz klar, nach welcher Lösung gesucht wird.

Zitat von R2009:

ich hatte nicht gefragt wie man das ganze einfacher machen kann, ich will wissen ob man irgenmdwie den Übergabetyp, der aufrufenden Funktion, feststellen kann.

Dachte bis eben dann, Du willst innerhalb der Funktion prüfen, an welchen Typ die Funktion Ihr Ergebnis liefert und entsprechend reagieren. Das geht meines Wissens nach nicht.

Der Quote klingt jetzt aber irgendwie so, als ob außerhalb der Funktion der Übergabetyp ermittelt werden kann (was aber nicht sein kann, weil Du ja nicht den ganzen Quelltext mit den ganzen Aufrufen ändern willst).

Überlaufprüfung klingt für mich immer noch noch dem Kompromiss, der eigentlich funktionieren müsste. Zumindest um die Fehlermeldung wieder von Delphi, statt von Windows ausgeben zu lassen. Evtl. als Compiler-Directive in den Units wieder ausgeschaltet?

[Jens Hartmann]

Trotzallem würde ich die Wertigkeit anpassen. Wenn Du schon weißt, das es zu einem Fehler in dem Fall kommen kann, und Du sogar die Stelle im Programm kennst, gibt es eigendlich als erste nur die Lösung die Var. Ihrem Zweck anzupassen. Fehlermeldung hin oder her.

[shmia]

Zitat von R2009:

Ist schon blöd wenn man an Programmen rummurksen muss die andere zusammengebastelt haben. Ich will so wenig wie möglich ändern...

Tja, das ist das tägliche Brot der Programmierer.
Aber du hast geistig die falsche Einstellung.
Du hast einen Haufen an minderwertigem Sourcecode geerbt, mit Fehlern und manchmal auch recht schwer zu lesen; eben ein Brownfield Projekt.

Dein Vorgänger hat vielleicht "gebastelt", aber das heisst nicht, dass du jetzt "murksen" darfst.


Es bleibt dir nichts anderes übrig als die K...e aufzuräumen.
Dazu beginnt man am Besten ganz unten bei einfachen Funktionen.
Bottom-Up-Redesign

Die Funktion INVHEXDW() ist dazu ein gutes Beispiel.
Anstatt nach einer Fehlermeldung zu suchen, nimmst du die Funktion (+abhängige Funktion INVHEXB) raus in ein kleines Testprojekt.
Dort wird sie solange getestet und verbessert bis sie 100% funktioniert.
Auf diese Art wird das Projekt auf ein solideres Fundament gestellt und du verstehst den Code immer besser.