Hallo,
die ersten beiden Bytes stellen ein sogenanntes Byte-Order-Mark dar, die Datei ist offensicgtlich UTF-16 kodiert.
Delphi-Quellcode:
procedure LoadText(s: TStrings; fn: TFileName);
const
BOM_UTF16 = $FEFF;
var
bom: Word;
ws: WideString;
fs: TFileStream;
begin
fs := TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite);
try
fs.Read(bom, SizeOf(bom));
if bom = BOM_UTF16 then
begin
SetLength(ws, (fs.Size - fs.Position) shr 1);
fs.Read(ws[1], Length(ws) shl 1);
s.Text := WideCharToString(PWideChar(ws));
end else s.LoadFromStream(fs);
finally
fs.Free;
end;
end;
Mit LoadText(Memo.Lines, 'qp.txt') kannst du sie laden.
Alles Gute im Neuen Jahr.