TStringlist encoding "übernehmen" [gelöst]

[corpsman]

Servus, ich bastle gerade nen c präprocessor der macht im prinzip folgendes:

.c oder .h Datei Laden in String Speichern
String wie wild bearbeiten
String als .c oder .h Datei Speichern

Laut meinem Textanalysetool ist das "String wie wild bearbeiten" richtig. Aber die Encodierung geht verloren (genauer gesagt das UTF8-BOM)

Vereinfacht sieht mein Code so aus:

Code: Alles auswählen

Var
  source, dest: TStringlist;
  e: Tencoding;
  s: String;
Begin
  source := TStringlist.create;
  source.loadfromfile('irgendwas');
  e := source.encoding.clone;
  s := source.text;
  source.free;
  // to the magic on s
  dest := Tstringlist.create;
  dest.text := s;
  dest.SaveToFile('irgendwie', e);
  dest.free;
End; 

Gibt es da noch einen Trick, mache ich was falsch, oder muss man einfach das BOM von Hand in S einfügen.. ?

[PascalDragon]

Unter der Annahme, dass du FPC 3.2.0 oder neuer verwendest: TStrings.WriteBom.

[theo]

Falls du eine etwas allgemeinere Lösung suchst, kann dir vielleicht auch mein alter TCharEncStream helfen. https://wiki.freepascal.org/UTF8_Tools
Damit wird versucht, so zu speichern wie gelesen wurde, wenn das Objekt beibehalten wird zwischen lesen und schreiben.
Also:

ANSI, UTF8, UTF16, UTF32
big-endian, little-endian
with/without BOM

Für deinen Fall heißt das: Wenn in der Originaldatei eine BOM da war, wird auch wieder eine BOM geschrieben, sonst nicht.

Die Benutzung ist recht intuitiv:

Code: Alles auswählen

 f := TCharEncStream.Create;
 f.LoadFromFile('test.txt');
 S := f.UTF8Text;
 //Tu was mit S (UTF8)
 f.UTF8Text:=S;
 f.SaveToFile('test.txt');
 f.Free;  

[corpsman]

Danke, das probiere ich morgen gleich mal aus

[corpsman]

@theo,

danke hat 1a funktioniert, dank online Package manager wars auch super einfach integriert *g*