On 8/21/06, Albert Zeyer <[EMAIL PROTECTED]> wrote:
type
TBaseTestObject = class(TPersistent)
constructor Create();
procedure DoSomething(); virtual; abstract;
end;
Make Create virtual: "constructor Create; virtual;"
TTestObject = class(TBaseTestObject)
public
constructor Create();
destructor Destroy(); override;
procedure DoSomething(); override;
end;
Override Create() here...
Regards,
- Graeme -
--
There's no place like 127.0.0.1
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
