лл£¡£¡ function ConnetDrv(DrvSnr, DrvType: byte; var sRt: Byte; TCP: Byte; var dNum :Dword; var dVAR: byte ; var dSType: byte; tOver: Integer): Byte; Â¥ÉϵÄÍüÁË¼Ó stdcall Delphi(Pascal) code:
function ConnetDrv(DrvSnr, DrvType: byte; var sRt: Byte; TCP: Byte; var dNum :Dword; var dVAR: byte ; var dSType: byte; tOver: Integer): Byte; stdcall;
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer); var len,MaxDelete:Integer; P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë begin P:=PLongint(A);// È¡µÄ A µÄ ......