Migration von Quelltext Delphi 2006 -> XE3

[Uwe Raabe]

Mach es dir doch einfach:

Delphi-Quellcode:

type
  OEMString = type AnsiString(850);

function dosascii(AText:String): OEMString;
begin
  AText := StringReplace(AText,'€','Euro',[rfReplaceAll]);
  AText := StringReplace(AText,'%bslash%','\',[rfReplaceAll]);
  result := OEMString(AText);
end;