Thema: Delphi UniCode to Ansi

Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#3

Re: UniCode to Ansi

  Alt 13. Jan 2008, 16:16
Hallo,

Unicode-kompatible Komponenten sind eine feine Sache.

Unter einfachen Randbedingungen lässt sich eine Unicode-Datei auch mit Delphi-Bordmitteln einlesen:

Delphi-Quellcode:
procedure LoadFromFile(s: TStrings; fn: TFileName);
var
  u: string;
  ws: WideString;
begin
  with TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite) do
  try
    // BOM handling omitted
    SetLength(ws, Size shr 1);
    Read(ws[1], Size);
    u := Utf8Encode(ws);
    s.Text := Utf8ToAnsi(u);
  finally
    Free;
  end;
end;
Grüße vom marabu
  Mit Zitat antworten Zitat