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 := '加不加分随你';
—————————————————————————————————
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 := '加不加分随你';
—————————————————————————————————
如果这样就是com接口拉不是我的本意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 := '加不加分随你';
—————————————————————————————————