Interface-Übergabe

[Bernhard Geyer]

Delphi-Quellcode:

type
  CoMyInterfaced = class
    class function Create: IMyInterfaced;
  end;

class function CoMyInterfaced.Create: IMyInterfaced;
begin
  result := TMyInterfaced.Create;
end;