原代码:
lblOperName.Caption := BaseParam.OperName;
OperName定义:
TBaseParam = Record
OperName: String[20]; //操作员
......
end;
编译提示:
W1057 Implicit string cast from 'ShortString' to 'string'
解决方法:
lblOperName.Caption := String(BaseParam.OperName);