idemo.pas

来自「我收集的一些Delphi动态连接库资料」· PAS 代码 · 共 20 行

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.