Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#2

Re: String (Ansi/UTF16) nach UTF8

  Alt 28. Aug 2009, 12:30
Wenn du String verwendest und es in D2009/10 oder jünger verwendet wird, dann einfach UTF8Encode Und UTF8ToString, dann paßt sich das schon automatisch an

Delphi-Quellcode:
{$IF not Declared(UnicodeString)} Type UnicodeString = WideString; {$IFEND}

Procedure DecodeUTF(const ASource: UTF8String; Var S: AnsiString); Overload;
begin
  S := Utf8ToAnsi(ASource);
end;

Procedure DecodeUTF(const ASource: UTF8String; Var S: UnicodeString); Overload;
begin
  S := UTF8ToWideString(ASource);
end;

function EncodeUTF(const ASource: AnsiString): UTF8String; Overload;
begin
  Result := UTF8Encode(ASource);
end;

function EncodeUTF(const ASource: UnicodeString): UTF8String; Overload;
begin
  Result := UTF8Encode(ASource);
end;

// PS: UTF8Encode ist schon überladen, also kannst du es auch direkt nutzen
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat