procedure System.Fail?

[KingIR]

Hallo!

Bin grade über eine mir bis Dato unbekannte Prozedur gestolpert. Sie heißt Fail und ist eine der Prozeduren für die Delphi so tut, als wäre sie in der Unit System deklariert, in Wirklichkeit aber direkt in den Compiler eingebaut ist.

Google konnte auch nicht helfen, genausowenig die Delphi-Hilfe, also, weiß jemand von euch was diese Prozedur tut? Evtl. melden dass das Erstellen eines Objektes fehlgeschlagen ist (der Aufruf befindet sich in einem Konstruktor) und dann wie exit abbrechen?

Der Code, um den es sich handelt, stammt aus dem Projekt curlpas, siehe angehängter Screenshot.

Gruß & Dank!

[SirThornberry]

die procedure fail ist nicht direkt im Compiler eingebaut sondern befindet sich tatsächlich in der Unit System. Die funktion ist komplett in Assembler und nach den Kommentaaren zu urteilen bewirkt sie das der speicher frei gegeben wird wenn ein Object <> nil ist.

[KingIR]

Ahja! Ich hatte nur nach Fail, nicht nach _Fail in der System.pas gesucht...

Danke auf jeden Fall, wieder was gelernt...

[Hawkeye219]

Hallo,

Die Standardprozedur Fail ist ein Überbleibsel aus Borland Pascal. Sie diente beim alten Objektmodell dazu, den Speicher für eine Instanz im Fehlerfall innerhalb des Konstruktors freizugeben. Danach wurde der Konstruktor verlassen.

Damals hatten wir noch keine Exceptions...

Gruß Hawkeye