VC中的接口定义我不是太清楚,但是我看:
type
 IMyclass =Class
     function Inc(i:integer):Integer;virtual;abstract;
     function Delete():Integer;      virtual;abstract;
  end;
你在Delphi申明 的IMyclass是一个类阿!是不是应该改为Interface?
还有:
MyClass.Inc(i);
ShowMessage(inttoStr(i));
0A其实I不是可输出参数,ShowMessage(inttoStr(i));是不是应该是:
ShowMessage(inttoStr(MyClass.Inc(i)));?—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

解决方案 »

  1.   

    Interface是要实现_addref,_delete,_QueryInterface的
    如果这样就是com接口拉不是我的本意0A其实I不是可输出参数,ShowMessage(inttoStr(i));是不是应该是:
    ShowMessage(inttoStr(MyClass.Inc(i)));?
    是应该这样
      

  2.   

    Interface并不一定是COM接口。Interface在Delphi中可以由普通类实现,也可以有COM类实现。—————————————————————————————————
    MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
                 毁誉由人,望天上云卷云舒,聚散任风。';
    if Not Assigned(I) then
      I := TI.Create(Nil);
    I.Maxim := MaximStr;
    I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
    I.Desire := '加不加分随你';
    —————————————————————————————————
      

  3.   

    Interface是要实现_addref,_delete,_QueryInterface的