Z
zzktcs
Unregistered / Unconfirmed
GUEST, unregistred user!
begin//写进程
with procSession do begin
Close;
ParamByName('VAR_APP_INFO').value:= sInput;
ExecProc;
if ParamByName('Nerrno').asinteger<>0 then begin
Application.MessageBox(pchar(ParamByName('Varerrstr').asString),'注意',MB_OK or MB_ICONWARNING);
Abort;
end;
end;
end;
为何该方法在active library中编译会提示[Error] Incompatible types: 'TMessageButtons' and 'Integer'
with procSession do begin
Close;
ParamByName('VAR_APP_INFO').value:= sInput;
ExecProc;
if ParamByName('Nerrno').asinteger<>0 then begin
Application.MessageBox(pchar(ParamByName('Varerrstr').asString),'注意',MB_OK or MB_ICONWARNING);
Abort;
end;
end;
end;
为何该方法在active library中编译会提示[Error] Incompatible types: 'TMessageButtons' and 'Integer'