UniCode to Ansi

[Thorben_Ko]

Hallo

ich hab eine Textdatei die in UniCode codiert ist (kein UTF-8, sondern laut Windows Text Editor "UniCode"). Da stehen nur Zeichen drin die auch im Ansi bzw Asccii zeichensatz enhallten sind. Ich suche eine möglichkeit wie ich diese Datei in eine TStringList einlesen kann, und auch was "erkenne".

Gibts da einen einfachen weg?

Gruss Thornen

[Bernhard Geyer]

TNTWare bzw. ElPack haben Stringlisten mit Unicode-Funktionalität welche Unicode-Codierte Dateien lesen können.
Im Forum (Evtl. auch CodeLib) gibt es Beispiel ohne diese Komponentensammlungen.

[marabu]

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