TFile.ReadAllText gibt es natürlich als
Unicode zurück (Result = String) und der Compiler sollte jetzt meckern, daß da eventuell ein Datenverlust eintreten könnte (UnicodeString => AnsiString).
Drum hatte ich auch einfach mal "blind" .Text verwendet, für die Zuweisung.
Im Prinzip macht er das Selbe, wie auch die TStringList beim Laden.
Die Datei in einen Puffer laden, Diesen via TEncoding decodieren und dann den UnicodeString an das Result übergeben.
(die TStringList zerlegt dann nur noch den UnicodeString in einzelne Zeilen)