Textdatei mit D2 erstellen

[shmia]

Delphi-Quellcode:

procedure SaveWideStringToFile(const filename:string; const ws:WideString);
var
   fs : TFileStream;
   data : WideStream;
begin
   data := ' '+ws;
   data[1] := Widechar($FEFF);  // BOM = Byte Order Mark
   fs := TFileStream.Create(filename, fmCreate);
   try
      fs.WriteBuffer(data[1], Length(data)*sizeof(Widechar));
   finally
      fs.Free;
   end;
end;