Get this.
I am trying to create a class derived from TObject in the {$M+} (RTTI turned
on).
eg
TMyFiller = class(TObject)
private
protected
public
destructor Destroy; override;
end;
But it does not work? - ClassInfo Fails
But if I create a class that has the same signature as TPersistent
TFiller = class(TObject)
private
procedure AssignError(Source: TFiller );
protected
procedure AssignTo(Dest: TFiller ); virtual;
procedure DefineProperties(Filer: TFiller ); virtual;
function GetOwner: TFiller ; dynamic;
public
destructor Destroy; override;
procedure Assign(Source: TFiller ); virtual;
function GetNamePath: string; dynamic;
end;
It works okay - any suggestions anybody?
Regards
Myles Penlington
Software Engineer
ADVANCED MANAGEMENT SYSTEMS
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
