Delphi Textdatei mit D2 erstellen

Thema durchsuchen

Ansicht

Themen-Optionen

Textdatei mit D2 erstellen

Ein Thema von MPirnstill · begonnen am 27. Jul 2005 · letzter Beitrag vom 28. Jul 2005

Vorheriger Beitrag

Nächster Beitrag

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge

Delphi 5 Professional

Re: Textdatei mit D2 erstellen

27. Jul 2005, 16:23

zusammenfalten · markieren

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;