Wie behandeln UTF-8 und ANSI-Konvertierung vor Delphi 2009?

In Delphi 2009 haben wir:

RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName,TEncoding.UTF8);
RichEdit1.Lines.SaveToFile(OpenDialog2.FileName,TEncoding.Unicode);

Wie mache ich das auf Delphi 2006 wenn ich nicht TEconding noch?

Ist es irgendwie zu transportieren, dass die neue Bibliothek zurück? oder gibt es da eine Lösung versteckt im Web?

  • Ich glaube, dass UTF8Encode und UTF8Decode anwesend waren, vor Delphi 2009. So können Sie die decode/encode-byte-strings manuell.
  • Wow!!! Mann bist du schnell!!!! Posten Sie Ihre Antwort, Ursache, dass ist richtig!!!!! Das Problem ist gelöst.
  • Diese Funktionen wird nicht helfen, replizieren TEncoding.Unicode da UTF-16.
  • Eine standard-RTF-Datei besteht aus nur 7-bit-ASCII-Zeichen (en.wikipedia.org/wiki/Rich_Text_Format#Character_encoding), warum willst du UTF8 verwenden?
  • Ich habe ein android-Anwendung, die erstellt text-Dateien. Aber diejenigen, die kommen in UTF8. Habe ich eine andere Anwendung in delphi, die Lesen, diese txt-Dateien und etwas tun, aber Sie werden in der Standard-delphi-Codierung (ich denke, es ist ANSI) und für die, die ich brauche, um zu Dekodieren, wenn ich Sie geöffnet habe.
InformationsquelleAutor Please_Dont_Bully_Me_SO_Lords | 2013-03-01
  1. 6

    Ich glaube, dass UTF8Encode und UTF8Decode anwesend waren auch vor Delphi 2009. So können Sie die decode/encode-byte-strings manuell. (Ich habe das getan, mich.)

    InformationsquelleAutor Andreas Rejbrand
  2. 3

    Hier ist ein Ausschnitt aus einem Delphi 7 Projekt von mir:

    function LoadFile(const fn: string): WideString;
var
  f:TFileStream;
  src:AnsiString;
  wx:word;
  i,j:integer;
begin
  if FileExists(fn) then
   begin
    f:=TFileStream.Create(fn,fmOpenRead or fmShareDenyNone);
    try
      f.Read(wx,2);
      if wx=$FEFF then
       begin
        //UTF16
        i:=(f.Size div 2)-1;
        SetLength(Result,i);
        f.Read(Result[1],i*2);
        //detect NULL's
        for j:=1 to i do if Result[j]=#0 then Result[j]:=' ';//?
       end
      else
       begin
        i:=0;
        if wx=$BBEF then f.Read(i,1);
        if (wx=$BBEF) and (i=$BF) then
         begin
          //UTF-8
          i:=f.Size-3;
          SetLength(src,i);
          f.Read(src[1],i);
          //detect NULL's
          for j:=1 to i do if src[j]=#0 then src[j]:=' ';//?
          Result:=UTF8Decode(src);
         end
        else
         begin
          //assume current encoding
          f.Position:=0;
          i:=f.Size;
          SetLength(src,i);
          f.Read(src[1],i);
          //detect NULL's
          for j:=1 to i do if src[j]=#0 then src[j]:=' ';//?
          Result:=src;
         end;
       end;
    finally
      f.Free;
    end;
   end
  else
    Result:='';
end;
    InformationsquelleAutor Stijn Sanders
Schreibe einen Kommentar