无法编译通过 下面我的借口定义错了吗  大家帮忙看看unit Unit2;interface
type
   IMyMessage   =   interface
   function   ReturnMsg:   string;
end;uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}end.

解决方案 »

  1.   


    type 上面的interface 去掉试试看
      

  2.   


    unit Unit2; interface uses 
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
      Dialogs; type 
      IMyMessage  =  interface 
        function  ReturnMsg:  string; 
      end; type 
      TForm2 = class(TForm) 
      private 
        { Private declarations } 
      public 
        { Public declarations } 
      end; var 
      Form2: TForm2; implementation {$R *.dfm} end.