DOS-ASCII < > Windows-ANSI

Diese Funktion wandelt DOS-ASCII-Text nach Windows-ANSI. Sie verarbeitet in der vorliegenden Form nur Strings bis 255 Buchstaben, man kann Sie durch Änderung der MaxLength-Konstanten aber leicht anpassen. Sie funktioniert in allen Delphi- und Windowsversionen.

DOS-ASCii to Windows ANSi :

function ASCII2ANSI(AText:string):string;
const MaxLength = 255;
var PText : PChar;
begin
  PText:=StrAlloc(MaxLength);
  StrPCopy(PText,AText);
  {$IFDEF WIN32}
  OEMToChar(PText,PText); {32Bit}
  {$ELSE}
  OEMToAnsi(PText,PText); {16Bit}
  {$ENDIF}
  Result:=StrPas(PText);
  StrDispose(PText);
end;

Den umgekehrten Weg beschreitet diese Funktion, sie wandelt Windows-ANSI-Text nach DOS-ASCII. Windows ANSIi to DOS-ASCii :

function ANSI2ASCII(AText:string):string;
const MaxLength = 255;
var PText : PChar;
begin
  PText:=StrAlloc(MaxLength);
  StrPCopy(PText,AText);
  {$IFDEF WIN32}
  CharToOEM(PText,PText); {32Bit}
  {$ELSE}
  AnsiToOEM(PText,PText); {16Bit}
  {$ENDIF}
  Result:=StrPas(PText);
  StrDispose(PText);
end;