Getest en dit lijkt legaal te zijn, ook bij nil :-)
Code:type TPointerHelper = record Helper for Pointer function HasValue: Boolean; inline; end; function TPointerHelper.HasValue: Boolean; begin Result := Self <> nil; end;
Getest en dit lijkt legaal te zijn, ook bij nil :-)
Code:type TPointerHelper = record Helper for Pointer function HasValue: Boolean; inline; end; function TPointerHelper.HasValue: Boolean; begin Result := Self <> nil; end;
Hahahaha, ik sta nog regelmatig versteld van de verborgen trucjes die je kunt uithalen in Delphi.
TMemoryLeak.Create(Nil);
yep
Code:Form.Main.pas.580: if not p.HasValue then begin 0068DAD8 837DCC00 cmp dword ptr [ebp-$34],$00 0068DADC 7510 jnz $0068daee Form.Main.pas.584: if p = nil then begin 0068DAEE 837DCC00 cmp dword ptr [ebp-$34],$00 0068DAF2 7510 jnz $0068db04
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks