Zitat:
Die gezeigte Funktion liefert dir ja auch den String korrekt decodiert zurück.
Leider bringt mir der String aber nicht, wenn es um das Encoding geht, welches ich bei TMemIniFile brauche.
Zitat:
Kannst du bei Wikipedia nachsehen: Zulässige Bytes und ihre Bedeutung
Auf soviele verschiedene Bytes kann ich doch gar nicht prüfen.
Oder sind das insgesamt nur 6?
Ich habe mich mal so daran versucht. Ist das so richtig?
Delphi-Quellcode:
var i: Integer; B: Byte; Bytes: TBytes;
begin
Stream.Position := 0;
for i := 0
to Stream.Size - 1
do
begin
SetLength(Bytes, 2);
Stream.
Read(Bytes, Length(Bytes));
if
(Bytes = TBytes.Create($C0, $C1))
or
(Bytes = TBytes.Create($F5, $F7))
or
(Bytes = TBytes.Create($F8, $
FB))
or
(Bytes = TBytes.Create($FC, $FD))
or
(Bytes = TBytes.Create($FE, $FF))
then
ShowMessage('
Ungültige Sequenz gefunden.');
end;
end;
end;