delphi7代码 转XE代码需注意：

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))