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

[sanek_freeman]

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

[sanek_freeman]

[решено] Ввод руских символов у Turbo Pascal 7.1

шрифт в pascal

Как в Borland Pascale 7 печатать на русском языке?

[sanek_freeman]

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

[sanek_freeman]

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

читать дальше »

...придётся использовать не Borland Pascal, а Turbo Pascal for Windows.

[sanek_freeman]

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

[sanek_freeman]

Разница в годе выпуска, а по сути это одно и тоже.

http://ru.wikipedia.org/wiki/Turbo_Pascal

Между прочим уже давно существует бесплатная современная альтернатива

http://www.freepascal.org/

.

[sanek_freeman]

Цитата Admiral:



Между прочим уже давно существует бесплатная современная альтернатива

http://www.freepascal.org/

.

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

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

[sanek_freeman]

Цитата Admiral:

http://www.freepascal.org/

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

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

[Admiral]

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

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

(32 MB) contains the installer containing the compiler and tools for win32:

Download cross-compilers as installers

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

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