Delphi 低版本升级到高版本常见错误修改

原代码：

if not (Key in ['0'..'9', #8]) then
begin
    MessageBeep(0);
end;

编译提示：

W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

解决方法：

if not CharInSet(Key, ['0'..'9', #8]) then
begin
    MessageBeep(0);
end;

---

DecimalSeparator、CurrencyDecimals等使用不了

提示没有定义DecimalSeparator

原来D11中更改了，修改为FormatSettings的一个字段了

修改方法：

在这些变量前加上FormatSettings即可

---

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

---