【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了MyAddSubu.pas相关资料,希望对各位网友有所帮助!
unit MyAddSubu;
interface
uses InvokeRegistry,MyAddSub;
type
TMyAddSub = class(TInvokableClass,IMyAddSub)
protected
function MyAdd(Value1:Integer;Value2: Integer): Integer; stdcall;
function MySub(Value1:Integer;Value2: Integer): Integer; stdcall;
end;
implementation
function TMyAddSub.MySub(Value1:Integer;Value2: Integer): Integer;
begin
Result := Value1-Value2;
end;
function TMyAddSub.MyAdd(Value1:Integer;Value2: Integer): Integer;
begin
Result := Value1+Value2;
end;
initialization
InvRegistry.RegisterInvokableClass(TMyAddSub);
end.