Home » Tipps & Tricks » Object Pascal » Strings » ANSI nach ASCII und umgekehrt

ANSI nach ASCII und umgekehrt

Die ersten 127 Zeichen (7 Bit) dieser beiden Zeichenstandards sind jeweils gleich. Erst ab dem 128. Zeichen (8 Bit) unterscheiden sie sich.Diese beiden Proceduren wandeln einen String von ANSI nach ASCII und zurück.

procedure AsciiToAnsi(var S: string);
begin
  OemToCharBuff(Pointer(S), Pointer(S), Length(S));
end;

procedure AnsiToAscii(var S: string);
begin
  CharToOemBuff(Pointer(S), Pointer(S), Length(S));
end;

Dabei gilt es zu beachten, dass der ursprüngliche String durch den umgewandelten ersetzt wird.Die Funktionen können nicht mit WideChar-Strings eingesetzt werden, da WideChar mit 16 bit deklariert ist.