UTF8 in Stringlist -> Suchen und ersetzen -> UTF8 speichern

[himitsu]

eigentlich dachte ich die hätten da etwas drin


Quick&Dirty:

Delphi-Quellcode:

var x: File;

AssignFile(x, FileName);
Reset(x);
SetLength(S, FileSize(x));
BlockRead(x, S[1], FileSize(x));
CloseFile(x);
Delete(S, 1, 3);
TNTStringList.Text := UTF8Decode(S);

...

AssignFile(x, 'FileName');
Rewrite(x);
Write(x, #$EF#$BB#$BF);
Write(x, UTF8Encode(TNTStringList.Text));
CloseFile(x);