D2007 Vererbung Constructor

[uligerhardt]

Einfach mal so in den Forumseditor getippt:

Delphi-Quellcode:

function Erzeugs(AClass: TBasisClass): TBasis;
begin
  Result := AClass.Create;
end;

MyBasisList.Add(Erzeugs(TNewClass));