Ну коль тема живет то и я задам вопрос (касается консольных приложений в седьмых дельфях).
Как известно, в консольных приложениях из-за несоответствия кодировок русский текст не может нормально отображаться. Пусть имеется функция rus, переделывающая текст в ASCII-строку:
function Rus(mes: string):string;
var
i: integer; // номер обрабатываемого символа
begin
for i:=1 to length(mes) do
case mes
of
'A'..'п': mes:= Chr(Ord(mes)-64);
'р'..'я': mes:= Chr(Ord(mes)-16);
end;
rus := mes;
end;
begin
writeln(rus('Привет'));
readln;
end.
Можно ли эту функцию переделать в процедуру так, чтобы я мог обратиться к ней в начале кода, и она сама искала русскоязычные строчки в коде, сразу меняя кодировку? Чтобы было что-то типа того:
procedure Rus ({тут параметры});
begin
//текст процедуры
end;
begin
Rus;
writeln('Привет!');
writeln('Это сообщение будет перекодировано');
//дальше какая-нить хня
readln;
end.
А то тупо лень каждую русскоязычную строчку выделять скобками и писать обращение к функции.
