請教接口的使用的相關問題!

Question

unit UBusinessPluginIntf;interfaceuses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
  
type
  ICallIntf = interface
    procedure GetModalName(var Value: String);
    procedure GetVersion(Var isVersion:string);
    procedure GetActionList(var ovNameList: TStrings; var ovActionList: TStrings);
    function  RunAction(const isActionName: String):TObject;
  end;
implementation
end.我想使用這個接口,哪位能比較詳細講一下在delphi中怎樣使用接口,謝謝!

Answer 1

呵呵，没分都没人来了。
你想怎么使用？接口只是一个定义，你必须有具体实现的类才可以用的，有点类似抽象类的概念。
比如：
TCallIntf = class(ICallIntf)
    procedure GetModalName(var Value: String);
    procedure GetVersion(Var isVersion:string);
    procedure GetActionList(var ovNameList: TStrings; var ovActionList: TStrings);
    function  RunAction(const isActionName: String):TObject;
  end;implementation
....具体实现