OOP und ihre Tücken...

[DeddyH]

Nunja, der Rückgabetyp ist ja nun einmal vom Typ noFile. Du könntest diesen aber nach dem Funktionsaufruf auf den "Untertyp" überprüfen. Oder man macht es ganz anders und übergibt noch einen Klassentypen, in der Art

Delphi-Quellcode:

type
  noFileClass = class of noFile;

function GetOSFile(aType: noFileClass): noFile;
begin
   Result := aType.Create;
end;