Проблема с русским шрифтом в Borland Pascal 7 - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Проблема с русским шрифтом в Borland Pascal 7 (http://forum.oszone.net/showthread.php?t=112323)

sanek_freeman

26-07-2008 16:20 861552

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

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

Admiral

26-07-2008 16:28 861558

[решено] Ввод руских символов у Turbo Pascal 7.1
шрифт в pascal
Как в Borland Pascale 7 печатать на русском языке?

sanek_freeman

26-07-2008 16:57 861573

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

Admiral

26-07-2008 20:25 861669

В таком случаи

sanek_freeman

26-07-2008 20:54 861687

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

Admiral

26-07-2008 23:42 861784

Разница в годе выпуска, а по сути это одно и тоже.
http://ru.wikipedia.org/wiki/Turbo_Pascal

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

sanek_freeman

27-07-2008 14:57 862053

Цитата:

Цитата Admiral

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

Спасибо, попробую эту альтернативу. ;)

sanek_freeman

27-07-2008 15:37 862075

Цитата:

Цитата Admiral

http://www.freepascal.org/ »

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

Admiral

27-07-2008 19:18 862170

ОффТоп: free pascal compiler на русском ФТП

Sagrael

09-12-2008 19:27 976620

Код:

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

Время: 20:59.