Exit wird nicht ausgeführt ?!?

[Dearmon]

Hi,
ich hab ein Problem. Ich experimentiere gerade ein wenig mit Andorra rum und aus irgend einem Grund funktioniert eine Prozedur nicht so wie ich will:

Delphi-Quellcode:

    if (Not TBaseObject(Sprite).Active) or (Not TBaseObject(Sprite).Solid) then
      Exit;

selbst wenn ich nur die erste Bedingung überprüfe, funktioniert es einfach nicht. Beim debuggen steht, dass die Bedingung
, also "Not Active", True ist. Aber trotzdem führt der danach exit nicht aus. Beim starten des Programmes ist übrigens auch nicht dieser rote Punkt, an dem man einen debugpunkt setzten könnte, vorhanden.

Woran könnte das liegen/was mach ich falsch :/

[Namenloser]

Hast du vielleicht die falsche Datei geöffnet? Manchmal kommt es vor, dass in einem anderen Ordner, der im Bibliotheks- bzw Suchpfad steht, eine gleichnamige, veraltete Datei liegt, die vom Compiler anstelle der richtigen eingebunden wird. Als erstes also mal danach Ausschau halten, dann zur Sicherheit alle .dcu-Dateien löschen und das Projekt neu erzeugen.

[Dearmon]

Hab ich schon versucht, daran liegts nicht :/

[Luckie]

Werden denn die Bedingungen auch erfüllt? wird ein ShowMessage angezeigt?

[Dearmon]

Zitat:

Beim debuggen steht, dass die Bedingung
, also "Not Active", True ist

und ja, alles wird ausgeführt, nur das Exit halt nicht.

[Luckie]

Dann ersetze doch mal das Exit durch ein ShowMessage, dann weißt du, ob er überhaupt in den Block reingeht.

Ist da noch ein try-finally-Block drumherum?

[Dearmon]

Mit

Zitat:

alles wird ausgeführt

war sowas wie Showmessage, Beep etc gemeint.
Nope, die ganze Prozedur hab ich oben gepostet, mehr steht nicht drinn

[Luckie]

Wenn das die ganze Prozedur ist, dann ist er doch so wie so am Ende der Prozedur.

Delphi-Quellcode:

procedure Foo;
begin
  if (Not  TBaseObject(Sprite).Active) or (Not TBaseObject(Sprite).Solid) then
    Exit;
end;

[Dearmon]

was nichts daran ändert dass die exit Zeile nicht aufgerufen wird, was z.B. beim verärben der Prozedur via inherited wichtig wäre. Dazu kommt dass wenn ich was dadrunter schreibe das exit einfach übersprungen wird (was theoretisch das Gleiche wie mit dem inherited ergeben müsste)

[himitsu]

Zitat von Dearmon:

was nichts daran ändert dass die exit Zeile nicht aufgerufen wird,

Doch, genau daran ändert das was.

Wenn nach dem Exit sowieso nichts mehr kommt, dann wird dieser "unnütze" Befehl durch die Codeoptimierung entfernt.

Wenn du nach dem Exit noch dein Inherited hinschreibst, dann kommt ja noch Code danach und dann würde es nicht wegoptimiert.