Zitat von
NicoDE:
Kurz, so wie Fail (in Delphi 6) implementiert ist, kann man nur dazu raten es nicht zu verwenden.
Fail gehört ja auch nicht zu
class sondern stammt noch aus Zeiten als
object aktuell war. Und genau da gehört es hin:
Delphi-Quellcode:
type
PTest = ^TTest;
TTest = object
constructor Init(f: Boolean);
destructor Done;
end;
constructor TTest.Init(f: Boolean);
begin
if f then
Fail;
WriteLn('Init');
end;
destructor TTest.Done;
begin
WriteLn('Done');
end;
var
P: PTest;
begin
P := New(PTest, Init(True));
if P <> nil then
Dispose(P, Done);
end.