Eure besten Quellcode Kommentare...

[sirius]

@himi: kleines Beispiel gefällig

Delphi-Quellcode:

type
  IIntf=interface
  ['{7BB6E49F-7606-47BB-B894-774D91F5FE17}']
    procedure sayHallo;
    procedure sayWorld;
  end;

  TIntfClass=class(TInterfacedObject,IIntf)
    procedure sayHallo;
    procedure sayWorld;
  end;

  IIntf2=interface //gleiche IID; gehört ja normalerweise in ein anderes Modul
  ['{7BB6E49F-7606-47BB-B894-774D91F5FE17}']
    procedure sayWorld;
    procedure sayHallo;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TIntfClass }

procedure TIntfClass.sayHallo;
begin
  showmessage('Hallo');
end;

procedure TIntfClass.sayWorld;
begin
  showmessage('World');
end;

procedure TForm1.Button1Click(Sender: TObject);
var Intf2:IIntf2;
begin
  Intf2:=TIntfClass.create as IIntf2;
  Intf2.sayHallo;
  Intf2.sayWorld;
end;