Delphi liefert doch alles mit:
Declariere einen Stringtyp für die gewünschte Codepage:
Delphi-Quellcode:
type
oemString = type Ansistring(437) ;
function StringtoOem(const Value : string) : oemString;
begin
result := Value;
end;
einfach zugewiesen und glücklich sein.
Ergebnis :
OEM
Decimal
66 154 67 72 69 82
HEX
$42 $9A $43 $48 $45 $52
ANSI
Decimal
66 220 67 72 69 82
HEX
$42 $
DC $43 $48 $45 $52