Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#1

String (Ansi/UTF16) nach UTF8

  Alt 28. Aug 2009, 11:09
Datenbank: SQLite • Version: 3 • Zugriff über: A simple Delphi wrapper for Sqlite 3
Hallo ihr,

SQLite verwendet ja UTF8 oder UTF16. Nun ist das beim aktuellen Wrapper den ich verwende ( http://www.itwriting.com/blog/a-simp...r-for-sqlite-3 ), so dass er soweit das gesehen habe nur UTF8 einsetzt. Jetzt möchte ich, dass wenn man jetzt die Datenbank öffnet, man einen String übergeben kann und je nach Delphi ist das dann ja ein AnsiString oder ein UnicodeString. Wie kann ich jetzt einfach sagen:
String rein -> UTF8 raus
Eventuell sogar auch andersherum?

Oder geht das nur so:
Delphi-Quellcode:
function DecodeUTF(const ASource: UTF8String): string;
begin
  Result := {$IFNDEF Unicode}Utf8ToAnsi{$ENDIF}(ASource);
  if Result = 'then
    Result := ASource;
end;

function EncodeUTF(const ASource: string): UTF8String;
begin
  Result := {$IFDEF Unicode}UTF8Encode{$ELSE}AnsiToUtf8{$ENDIF}(ASource);
  if Result = 'then
    Result := ASource;
end;
MfG
xZise
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat