idemo.pas

主要介绍了Delphi中的DLL封装和调用对象技术

unit IDemo;

interface


type
  ICar = interface (IInterface)
    ['{ED52E264-6683-11D7-B847-001060806215}']
    procedure Drive;
  end;

  IBicycle = interface (IInterface)
    ['{ED52E264-6683-11D7-B847-001060806216}']
    procedure Ride;
  end;

implementation

end.