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.