Case-Anweisung wird ignoriert

[ToFaceTeKilla]

Hallo zusammen!

Ich hab in meinem Programm folgende Case Anweisung:

Delphi-Quellcode:

case TypVergleich(aImpObj, aCurObj) of 
         1: //Anweisung1
         2: //Anweisung2
         3: //Anweisung3
         end;

TypVergleich ist eine Funktion die aImpObj übergeben bekommt und neben dem Result noch aCurObj zurückliefern soll (ich brauche das aCurObj weil ich da noch drauf zugreifen will in den Anweisungen1,2,3).
Nun bin ich mir nicht sicher ob das überhaupt so funktionert (mit case eine funktion aufrufen und gleichzeitig aufs result zugreifen), deshalb hab ich das ganze wie folgt umgeschrieben:

Delphi-Quellcode:

TypVerglRes:= TypVergleich(aImpObj,aCurObj);
case TypVerglRes of 
         1: //Anweisung1
         2: //Anweisung2
         3: //Anweisung3
         end;

TypVerglRes ist integer.

Bei beiden Varianten passiert allerdings nichts. Beim debuggen seh ich auch das auf TypVerglRes ein gültiger Wert steht, aber das CASE wird dann einfach übersprungen. Hab ich was falsch gemacht oder woran liegt das?

Danke schonmal im Voraus

[DeddyH]

Werden evtl. in den case-Labels nur Werte zugewiesen und anschließend nicht mehr benutzt? Dann wird das nämlich ggf. vom Compiler wegoptimiert.

[ToFaceTeKilla]

Ah alles klar, das war mein Fehler.
Ich hatte die Anweisungen noch nicht vollständig geschrieben, weil ich erstmal testen wollte ob die Fkt. usw. alles funktioniert und deshalb nur ne Zuweisung drin.
Hatte mich schon gewundert warum bei "1: " der Haltepunkt ungültig wird

Danke dir

[ToFaceTeKilla]

Achso noch was: die Funktion mit
Case TypVergleich of aufrufen, bringt nichts oder? Also da wird nicht automatisch auf Result zugegriffen, wenn ich das richtige interpretiere, dass da der Debugger drüberspringt?!

EDIT: OK war Rotz, jetzt hält er ordnungsgemäß am Haltepunkt an...