delphi7 char
xe AnsiChar
delphi7 strcopy(@jpginfo.szCarNumber,pAnsiChar(@tempstr[1]));
xe CopyMemory(@jpginfo.szCarNumber[0],PAnsiChar(AnsiString(tempstr)),Length(AnsiString(tempstr)));
取漢字在字串中位置
delphi7 pos('上行',jpginfo.szAdressName)
xe pos(ansistring('上行'),ansistring(jpginfo.szAdressName))