Delphi 7移植到Delphi XE5碰到及解决的问题 （4）

原代码：

lblOperName.Caption := BaseParam.OperName;

OperName定义：

TBaseParam = Record
     OperName: String[20];        //操作员

......

end;

编译提示：

W1057 Implicit string cast from 'ShortString' to 'string'

解决方法：

lblOperName.Caption := String(BaseParam.OperName);