修改cxDataUtils文件,DefaultCurrencyDisplayFormat函数的返回值string->AnsiString
- function DefaultCurrencyDisplayFormat: AnsiString;
- var
- ACurrStr: AnsiString;
- I: Integer;
- C: Char;
- begin
- if CurrencyDecimals > 0 then
- begin
- SetLength(Result, CurrencyDecimals);
- FillChar(Result[1], Length(Result), '0');
- end
- else
- Result := '';
- Result := ',0.' + Result;
- ACurrStr := '';
- for I := 1 to Length(CurrencyString) do
- begin
- C := CurrencyString[I];
- if dxCharInSet(C, [',', '.']) then
- ACurrStr := ACurrStr + '''' + C + ''''
- else
- ACurrStr := ACurrStr + C;
- end;
- if Length(ACurrStr) > 0 then
- case CurrencyFormat of
- 0: Result := ACurrStr + Result; { '$1' }
- 1: Result := Result + ACurrStr; { '1$' }
- 2: Result := ACurrStr + ' ' + Result; { '$ 1' }
- 3: Result := Result + ' ' + ACurrStr; { '1 $' }
- end;
- end;