有些函数编译直接出错,utf8ToSys,SysToUtf8 这种,直接改成 utf8ToAnsi,ansiToUtf8。
编译不出错,但是影响了其他数据表插入、保存结果(字段不能赋值,只能插入空行)。在上一个ct版本是可以的,但是5.8就不行了:
// 消除子表货币符号
if Assigned(FindComponent('DETAIL_QUERY_' + curDetailTbl)) then
begin
tmpAZQuery := TZQuery(FindComponent('DETAIL_QUERY_' + curDetailTbl));
for i := 0 to tmpAZQuery.Fields.Count - 1 do
begin
sFld := tmpAZQuery.Fields[i].FieldName;
fldType := dm.getFldType(curDetailTbl, sFld);
//memo1.Append(sFld + ':' + fldType);
TBCDField(tmpAZQuery.Fields[i]).DisplayFormat := '###############.##';
end;
end;