|
Проблемо в том что в делфийском компиляторе используется Windows-1251, а запущенное приложение использует кодовую страницу Dos.
Мона решить проблемку так:
делаем функцию
function Rus (s: string): string;
var
i: integer;
begin
for i:=1 to length(s) do
case s[i] of
'А'..'п' : s[i] := Chr(Ord(s[i]) - 64);
'р'..'я' : s[i] := Chr(Ord(s[i]) - 16);
end;
Rus := s;
end;
Затем используем, например так:
...
writeln(Rus('привед'));
...
|