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

Admiral · Отправлено: **16:28, 26-07-2008** | #2

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

sanek_freeman · Отправлено: **16:57, 26-07-2008** | #3

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

Admiral · Отправлено: **20:25, 26-07-2008** | #4

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

sanek_freeman · Отправлено: **20:54, 26-07-2008** | #5

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

Admiral · Отправлено: **23:42, 26-07-2008** | #6

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

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

sanek_freeman · Отправлено: **14:57, 27-07-2008** | #7

Цитата Admiral:

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

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

sanek_freeman · Отправлено: **15:37, 27-07-2008** | #8

Цитата Admiral:

http://www.freepascal.org/ »

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

Admiral · Отправлено: **19:18, 27-07-2008** | #9

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

Sagrael · Отправлено: **19:27, 09-12-2008** | #10

Код:

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