Convert Oem to ANSI
Zuletzt geändert: 11.06.2023 21:40

ConvertOemToAnsi (Pascalscript) #

Beschreibung #

ConvertOemToAnsi konvertiert den angegebenen String OEM-String in einen ANSI-String.

Syntax #

function ConvertOemToAnsi(const S: string): string;

Argumente #

ConvertOemToAnsi wandelt den OEM-String S in einen ANSI-String um. Bei OEM-Strings handelt es sich um die von DOS benutzte Zeichensatzkodierung Codepage 437 bzw. 850. Die Umlaute werden hierbei wie folgt umgesetzt:

Ansi OEM ASCII
Ä 142
ä 132
Ö 153
ö 148
Ü 154
ü 129
ß 225

Die Umsetzung von ANSI nach OEM ist dann sinnvoll, wenn aus dem Reportgenerator Daten von DOS-Anwendungen importiert werden sollen.

Beispiel #

var
  S1: String;
  S2: String;
begin
  S1:='DOS-Zrger';
  S2:=ConvertOemToAnsi(S1);
  ShowMessage(S2);
end;

Regeln zum Nachvollziehen des Scripts finden Sie hier.

Der String-Variablen S1 wird der Text ‘DOS-Zrger’ zugewiesen. Die Funktion ConvertOemToAnsi wandelt den Text in Ansi-Zeichen um und weist das Ergebnis der String-Variablen S2 zu. Der Ansi-Text ist nur für Importzwecke von DOS-Anwendungen geeignet.

ShowMessage zeigt: DOS-Ärger