UTF-8 nach ASCII (die 1000ste)

[HolgerX]

Hmm..

Irgendwo in den alten Sourcen gefunden:

Delphi-Quellcode:

function ANSI2ASCII(AText : AnsiString) : AnsiString;
var 
  PText : PAnsiChar;
begin
  PText:=StrAlloc(length(AText)+1);
  StrPCopy(PText,AText);
  CharToOEMA(PText,PText);
  Result:=StrPas(PText);
  StrDispose(PText);
end;