TStringList mit UTF-8/Unicode

[PeterK]

Hi,

sorry daß ich mich hier anhänge, meine Frage wäre, wie erkenne ich denn
mit Lazarus' Hilfe die Codierung einer Datei ?

Ich habe eine Explorer-ähnliche Ansicht, bei clicken auf einen Dateinamen wird der Text
in ein TMemo geladen (genauer: erst in eine TStringList, dann "MyMemo.Lines:= MyStringList;")

Aber wie kann ich feststellen, welche Codepage die Textdatei hat ?
Damit ich die einzelnen Zeilen korrekt im TMemo angezeigt bekomme ?

[theo]

Dafür wäre meine "charencstreams" geeignet:
http://wiki.freepascal.org/UTF8_Tools

So müsste reichen:

Code: Alles auswählen

 f := TCharEncStream.Create;
 f.LoadFromFile(OpenDialog1.FileName);
 Memo1.Text := f.UTF8Text;  
 f.Free;

Siehe auch die Demo.

[PeterS]

That's really great !!!

Völlig unkompliziert, einfach eingebaut und läuft - vielen vielen Dank !

Beste Grüße,
Peter