Arno Garrels
2011-03-09 18:29:23 UTC
Hai,
anstatt den UnicodeString nach ANSI zu casten, könnte
man doch einfach nach UTF-8 casten und in die grotten-
alte Datenbank posten, ist jemand schon vor mir auf
diese Idee gekommen, und falls ja, was gibt's zu
beachten?
Also ich hab hier zur Zeit die DB.pas folgendermaßen
verändert:
function TStringField.GetAsString: string;
begin
Result := AnsiToUnicode(GetAsAnsiString, CP_UTF8);
//Result := string(GetAsAnsiString);
end;
procedure TStringField.SetAsString(const Value: string);
begin
SetAsAnsiString(UnicodeToAnsi(Value, CP_UTF8));
//SetAsAnsiString(AnsiString(Value));
end;
Wobei AnsiToUnicode und UnicodeToAnsi Eigengewächse
sind.
anstatt den UnicodeString nach ANSI zu casten, könnte
man doch einfach nach UTF-8 casten und in die grotten-
alte Datenbank posten, ist jemand schon vor mir auf
diese Idee gekommen, und falls ja, was gibt's zu
beachten?
Also ich hab hier zur Zeit die DB.pas folgendermaßen
verändert:
function TStringField.GetAsString: string;
begin
Result := AnsiToUnicode(GetAsAnsiString, CP_UTF8);
//Result := string(GetAsAnsiString);
end;
procedure TStringField.SetAsString(const Value: string);
begin
SetAsAnsiString(UnicodeToAnsi(Value, CP_UTF8));
//SetAsAnsiString(AnsiString(Value));
end;
Wobei AnsiToUnicode und UnicodeToAnsi Eigengewächse
sind.
--
Arno Garrels
Arno Garrels