Man könnte es über TEncoding.EncodingName ( Codepage) versuchen.
Auch nicht verkehrt, je nachdem was man möchte:
Delphi-Quellcode:
Writeln(TEncoding.ANSI.EncodingName);
Writeln(TEncoding.ASCII.EncodingName);
Writeln(TEncoding.BigEndianUnicode.EncodingName);
Writeln(TEncoding.Default.EncodingName);
Writeln(TEncoding.Unicode.EncodingName);
Writeln(TEncoding.UTF7.EncodingName);
Writeln(TEncoding.UTF8.EncodingName);
ergibt:
Code:
1252 (
ANSI - Lateinisch I)
20127 (US-
ASCII)
1201 (
Unicode - Big-Endian)
1252 (
ANSI - Lateinisch I)
1200 (
Unicode)
65000 (UTF-7)
65001 (UTF-8)