uintfs.pas

多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术内容的代码

unit uIntfs;

interface

uses Classes;

type
  IPortfolio = interface
    function GetAuthors : TStringList; stdcall;
    function GetBooks(const sName : String) : TStringList; stdcall;
  end;

  IAuthor = interface
    function GetCategories : TStringList; stdcall;
  end;

  ICategory = interface
    function GetBooks : TStringList; stdcall;
    procedure CreateBook(const sName : String; const iPrice : Integer);
  end;

implementation

end.