

Какой язык программирования выбрать?
#91 Гость_Fantom14_*
Отправлено 05 Апрель 2007 - 22:00
Не путаю. В Делфи при создании дос проги выбираешь консольное (я так делаю). А в бейсике с отображением кодировки все нормально. Может в SysUtils; что поменять?
#92 Гость_Galiaf_*
Отправлено 05 Апрель 2007 - 22:39
#93 Гость_Fantom14_*
Отправлено 05 Апрель 2007 - 22:44
учусь.. На делфи паскаль осваиваю.
#94 Гость_Galiaf_*
Отправлено 05 Апрель 2007 - 22:52
#95 Гость_Galiaf_*
Отправлено 05 Апрель 2007 - 22:54
#96 Гость_Author_*
Отправлено 05 Апрель 2007 - 22:57
SysUtils?..


Обычно когда оконный режим - кодировка правильная, а когда полноэкранный режим (Alt+Enter по моему

Файлы с расширением *.nt - на NT платформе.
В Windows 98 их нет. Нужно прописывать кодировку в config.sys и/или autoexec.bat.
#97 Гость_HardMan_*
Отправлено 06 Апрель 2007 - 12:19
просто консольные проги написанные на дельфе выполняются как досовские, но запускает их винда. а как известно в досе применяется ASCII, а в винде ANSI
ANSI кодирует русские буквы от 192 до 255(А..я), а ASCII - от 128 до 175(А..п) и от 224 до 239(р..я)
Fantom14
пиши функцию со седущим кодом:
.................. for i:=1 to Length(s) do case s[i] of 'А'..'п': s[i]:=chr(ord(s[i])-64); 'р'..'я': s[i]:=chr(ord(s[i])-16); end; ..................
Сообщение отредактировал HardMan: 06 Апрель 2007 - 12:28
#98 Гость_Author_*
Отправлено 06 Апрель 2007 - 23:18
Не-е-е... Это уже изврат, писать функцию вывода на экран. ИМХО

Сообщение отредактировал Author: 06 Апрель 2007 - 23:19
#99 Гость_HardMan_*
Отправлено 07 Апрель 2007 - 10:51
тогда предложи альтернативу

эта ф-ия просто переводит заданную строку ANSI в ASCII. подругому, имхо, никак.
Сообщение отредактировал HardMan: 07 Апрель 2007 - 10:56
#100 Гость_alert2006_*
Отправлено 07 Апрель 2007 - 14:13
HardMan (6.04.2007 - 12:19) писал:
просто консольные проги написанные на дельфе выполняются как досовские, но запускает их винда. а как известно в досе применяется ASCII, а в винде ANSI
ANSI кодирует русские буквы от 192 до 255(А..я), а ASCII - от 128 до 175(А..п) и от 224 до 239(р..я)
Fantom14
пиши функцию со седущим кодом:
.................. for i:=1 to Length(s) do case s[i] of 'А'..'п': s[i]:=chr(ord(s[i])-64); 'р'..'я': s[i]:=chr(ord(s[i])-16); end; ..................
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных