Code issue in functions TWideStringField GetAsString & SetAsString
Original Reporter info from Mantis: minimus
-
Reporter name:
Original Reporter info from Mantis: minimus
- Reporter name:
Description:
Missing conversion UTF8String <--> UnicodeString.
If it was supposed automatic conversion, it does not work.
//=== original fields.inc =====================
function TWideStringField.GetAsString: string;
begin
Result := GetAsWideString;
end;
procedure TWideStringField.SetAsString(const aValue: string);
begin
SetAsWideString(aValue);
end;
//=== correct code =====================
function TWideStringField.GetAsString: string;
begin
Result := UTF8Encode(GetAsWideString);
end;
procedure TWideStringField.SetAsString(const aValue: string);
begin
SetAsWideString(UTF8Decode(aValue));
end;
Mantis conversion info:
- Mantis ID: 24843
- OS: Win32
- OS Build: XP
- Version: 2.3 (SVN)