Textdatei mit D2 erstellen

[MPirnstill]

Hey shmia,

danke für die Routine!

Zitat von 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;

aber du übergibst da der Procedure einen WideString, kann ich den benutzen wie einen normalen String oder wie versorge ich den. Irgendwie kennt mein Delphi leider auch keinen Widestring und auch keinen WideStream. Könnte es sein das dies erst ab Delphi > 2.0 funktioniert. Ich hab zwar höhere Delphi-Versionen, aber dieses ganze Projekt ist eben in D2 und das hierfür umzustellen wäre zu aufwendig.

Hast du einen Tipp wie man das unter D2 realisieren kann?

Gruß
Micha

P.S.: Mir ist schon übel von diesem Unicode-Kram.
Kann MS-Word nicht mal einfach so blöd sein und tun was man will.