- interface
- type
- ITestObject = interface
- [... GUID....]
- procedure Methode1;
- procedure Methode2;
- end;
- TTestOject = class(TInterfacedObject,ITestObject)
- procedure Methode1;
- procedure Methode2;
- end;
- implementation
- function CreateTestObject:ITestObject;
- begin
- result := TTestObject.create as ITestObject;
- end;
- procedure TTestOject.Methode1;
- begin
- end;
- procedure TTestOject.Methode2;
- begin
- end;
- exports
- CreateTestObject;