Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
39.410 Beiträge
 
Delphi 11 Alexandria
 
#16

AW: Einzelnen Unicodestring an Datei anhängen

  Alt 6. Jun 2011, 12:45
AssignFile und Co. arbeitet immer nur mit ANSI - UnicodeStrings werden entsprechend umkodiert.

Du könntest als erstes (beim Erstellen der Datei, als AnsiString) den UTF-8-BOM einfügen
und dann immer (wie schon von Stevie vorgeschlagen) über UTF8Encode abspeichern.

Oder man kopiert den UnicodeString, zusammen mit einem sLinebreak, Bytegenau in einen RawByteString und schiebt diesen via AssignFile+Write (nicht WriteLn) in die Datei.

Oder man öffnet die Datei binär und nimmt BlockWrite,
bzw. über einen TFileStream und dort ebenfalls binär, wie im vorherigen Post zu sehn.

Oder TFileStream erstellen, die Position auf das Dateiende setzen und dann über TStringStream dort den String anhängen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat