itest1 = interface
procedure show(i: integer);
end;
itest2 = interface
procedure show(i: integer);
end;
test = class(tinterfacedobject,itest1,itest2)
public
?????????????????????
end;
procedure show(i: integer);
end;
itest2 = interface
procedure show(i: integer);
end;
test = class(tinterfacedobject,itest1,itest2)
public
?????????????????????
end;
function itest1.show = test1show
function itest2.show = test2showfunction test1show;
function test2show;