无法编译通过 下面我的借口定义错了吗 大家帮忙看看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.
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.
type 上面的interface 去掉试试看
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.