I
itprogram
Unregistered / Unconfirmed
GUEST, unregistred user!
各位朋友,近期我们开发的一个系统,调用下面的函数就会出现窗体界面自动关闭的情况,不是每一次都这样,很多时候是正常的,20%的时候会出现这个情况. 该按扭是这样的一段代码:var tMsg
char; iMsg,oMsg:String; try isize=5000; GetMem(tMsg,iSize); iMsg := XXXXXXXXXX;//得到参数 if BUSINESS_HANDLE(Pchar(iMsg),tMsg^)<0 then //调用医保接口 begin messagebox(XXXXXXXXXXXXxxx); Exit; end else begin oMsg:= tMsg; //对返回的字符串参数进行处理的程序...... end finally FreeMem(tMsg); end;
char; iMsg,oMsg:String; try isize=5000; GetMem(tMsg,iSize); iMsg := XXXXXXXXXX;//得到参数 if BUSINESS_HANDLE(Pchar(iMsg),tMsg^)<0 then //调用医保接口 begin messagebox(XXXXXXXXXXXXxxx); Exit; end else begin oMsg:= tMsg; //对返回的字符串参数进行处理的程序...... end finally FreeMem(tMsg); end;