Код:
function DosChr(ch : char) : char;{Перевод символов из Win 1251 в DOS}
var s : byte; begin s := ord(ch); if (ord(ch) >= 192) and (ord(ch) <= 239) then
s := ord(ch) - 64 else if (ord(ch) >= 240) then s := ord(ch) - 16; DosChr := chr(s); end;
function DosStr(st1 : string) : string; var i:integer; begin for i := 1 to length(st1) do
begin DosChr(st1[i]);st1[i] := DosChr(st1[i]); DosStr := st1;end;end;
а обращение выглядит как то так
Код:
Writeln(DosStr('русский текст'))
