http://tech.turbu-rpg.com/56/as-sertion-casting My thoughts on Delphi programming in general, and particularly on the technical aspects of developing the TURBU engine and editor. Mon, 06 Sep 2010 05:08:43 -0400 hourly 1 http://wordpress.org/?v=3.0.1 http://tech.turbu-rpg.com/56/as-sertion-casting/comment-page-1#comment-45 delphigeist Sat, 14 Nov 2009 05:55:34 +0000 http://tech.turbu-rpg.com/?p=56#comment-45 Interesting post, I always use hard cast, but I'm always sure that the variable is of that type, so I just shut up the compiler. By the way this code ============================================================= class function TObject.InheritsFrom(AClass: TClass): Boolean; {$IFDEF PUREPASCAL} var ClassPtr: TClass; begin ClassPtr := Self; while (ClassPtr nil) and (ClassPtr AClass) do ClassPtr := PPointer(Integer(ClassPtr) + vmtParent)^; Result := ClassPtr = AClass; end; ============================================================= will not compile, you've started a $IFDEF and did not close it with $ENDIF :). Interesting post, I always use hard cast, but I’m always sure that the variable is of that type, so I just shut up the compiler.
By the way this code
=============================================================
class function TObject.InheritsFrom(AClass: TClass): Boolean;
{$IFDEF PUREPASCAL}
var ClassPtr: TClass;
begin
ClassPtr := Self;
while (ClassPtr nil) and (ClassPtr AClass) do
ClassPtr := PPointer(Integer(ClassPtr) + vmtParent)^;
Result := ClassPtr = AClass; end;
=============================================================
will not compile, you’ve started a $IFDEF and did not close it with $ENDIF .

]]>