UniCode to Ansi

[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