функция конвертации ANSI в ASCII (Win to DOS)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
function ASCII(Src: string): string;
var
i: word;
begin
Result:= Src;
for i:= 1 to Length(Result) do
case Result[i] of
'А'..'п': Result[i]:= Chr(Ord(Result[i]) - 64);
'р'..'я': Result[i]:= Chr(Ord(Result[i]) - 16);
'Ё': Result[i]:= Chr(240);
'ё': Result[i]:= Chr(241);
'Є': Result[i]:= Chr(242);
'є': Result[i]:= Chr(243);
'Ї': Result[i]:= Chr(244);
'ї': Result[i]:= Chr(245);
'І': Result[i]:= 'I'; // подмена латинским символом
'і': Result[i]:= 'i'; // подмена латинским символом
end;
end;