Function addStringList(sSrc: String): String;
var
Dest: array[0..1024 * 2] of Char;
begin
if sSrc = '' then Exit;
if (nGetDateIP >= 0) and Assigned(PlugProcArray[nGetDateIP].nProcAddr) then begin
FillChar(Dest, SizeOf(Dest), 0);
TGetDateIP(PlugProcArray[nGetDateIP].nProcAddr)(@sSrc[1], @Dest);
Result := StrPas(PChar(@Dest));
Exit;
end;
Result := sSrc;
End;
//请问一下,相反的函数应该怎么写
var
Dest: array[0..1024 * 2] of Char;
begin
if sSrc = '' then Exit;
if (nGetDateIP >= 0) and Assigned(PlugProcArray[nGetDateIP].nProcAddr) then begin
FillChar(Dest, SizeOf(Dest), 0);
TGetDateIP(PlugProcArray[nGetDateIP].nProcAddr)(@sSrc[1], @Dest);
Result := StrPas(PChar(@Dest));
Exit;
end;
Result := sSrc;
End;
//请问一下,相反的函数应该怎么写
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货