Проблема с русским шрифтом в Borland Pascal 7

[sanek_freeman]

Собственно, проблема заключается в отображении русских символов при работе в BPW. Как ее решить?

[Admiral]

[решено] Ввод руских символов у Turbo Pascal 7.1 (http://forum.oszone.net/thread-93627.html)
шрифт в pascal (http://forum.oszone.net/thread-29949.html)
Как в Borland Pascale 7 печатать на русском языке? (http://forum.oszone.net/thread-30641.html)

[sanek_freeman]

Admiral, к сожалению ничего не помогло. В DOSсовском BP русский вообще не переключается. Но для меня это не главное. Главное то, что в Windows`он BPW русский шрифт отображается иероглифами.

[Admiral]

В таком случаи
http://img1.imageshost.ru/imgs/10ad3e7e8274de0b627656631db0cd8e/tb2f5528a200721fabad5c8dff7f36c4f.png (http://img1.imageshost.ru/imgs/10ad3e7e8274de0b627656631db0cd8e/b2f5528a200721fabad5c8dff7f36c4f.png) ...придётся использовать не Borland Pascal, а Turbo Pascal for Windows.

[sanek_freeman]

Admiral, так я всю жизнь думал, что Borland Pascal это и есть Turbo Pascal. Или я ошибаюсь?

[Admiral]

Разница в годе выпуска, а по сути это одно и тоже.
http://ru.wikipedia.org/wiki/Turbo_Pascal
http://img1.imageshost.ru/imgs/069521dbf92b700f416c5e7ea74ca0fa/tcefa7336cbba0b52f69a9bce2ce09a19.png (http://img1.imageshost.ru/imgs/069521dbf92b700f416c5e7ea74ca0fa/cefa7336cbba0b52f69a9bce2ce09a19.png)
Между прочим уже давно существует бесплатная современная альтернатива http://www.freepascal.org/.

[sanek_freeman]

Между прочим уже давно существует бесплатная современная альтернатива http://www.freepascal.org/. »
Спасибо, попробую эту альтернативу. ;)

[sanek_freeman]

http://www.freepascal.org/ »
Чего - то на сайт не хочет заходить. Может выложишь последнюю версию этого коплилятора здесь. Буду очень благодарен. ;)

[Admiral]

http://www.freepascal.org/down/i386/win32-russia.var
Download Win32
The latest release version is 2.2.0.
Supported Windows versions are 95, 98, ME, NT, 2000, XP, 2003 and Vista


Download as installer
fpc-2.2.0.i386-win32.exe (ftp://ftp.chg.ru/pub/lang/pascal/fpc/dist/i386-win32-2.2.0/fpc-2.2.0.i386-win32.exe) (32 MB) contains the installer containing the compiler and tools for win32:
Download cross-compilers as installers
fpc-2.2.0.arm-wince.exe (ftp://ftp.chg.ru/pub/lang/pascal/fpc/dist/i386-win32-2.2.0/fpc-2.2.0.arm-wince.exe) (6.5 MB) contains the installer containing the win32 to arm-wince cross-compiler only. :
fpc-2.2.0.x86_64-win64.exe (ftp://ftp.chg.ru/pub/lang/pascal/fpc/dist/i386-win32-2.2.0/fpc-2.2.0.x86_64-win64.exe) (12 MB) contains the installer containing the win32 to win64 cross-compiler only. :

[Sagrael]

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('русский текст'))