关于 Tinterfaceobject

Question

示例：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  imyinterface=interface
     procedure getname();
0A  end;  Tmyclass=class(TInterfacedObject,imyinterface)
  public
    constructor Create;
    procedure getname();
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }0D
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
constructor Tmyclass.Create;0D
begin
  Inherited Create;
end;procedure Tmyclass.getname();0D
begin
  showmessage('hello');
end;procedure TForm1.Button1Click(Sender: TObject);
var s: Tmyclass;
begin
  s := Tmyclass.Create;
  s.getname();
end;end.
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————
　　　　　　　

Answer 1

你的编译环境已经出现问题。如果是Delphi6，可以重设环境。具体方法如下：
在开始|运行中敲regedit，将HKEY_CURRENT_USER\Software\Borland\Delphi\6.0下的东西统统删调，然后重启Delphi，那么一切OK。