ANSI ---> ASCII
{преобразованиеAnsi to Ascii}
function AnToAs(s:
String) :
String;
Var i,kod : Integer;
begin
Result:=s;
for i:=1
to length(s)
do
begin
kod:=Ord(s[i]);
if kod 13
then Result[i]:=' ';
if ( kod>=192)
and ( kod=239)
then
Result[i]:=Chr(kod-64);
if ( kod>=240)
and ( kod=255)
then
Result[i]:=Chr(kod-16);
if kod=168
then Result[i]:=Chr(240);
if kod=184
then Result[i]:=Chr(241);
end;
end;