IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Процедура Outtext | Нужна помощь, Помогите. Дело всего лишь в опциях компилятора.
The PRO
сообщение 27.02.2007 16:20
Сообщение #1


Билл Гейтс =)
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


Помогите настроить компилятор Borland Pascal 7.0
У меня через процедуру Outtext при попытке вывода знаков(.,?/'":; и т.д.), чисел и пробелов - компилятор
выводит какие то непонятные символы. (Всё буквы выводятся нормально.)
Подскажите, как это исправить. Я думаю что всё дело в настройках компилятора, но
вот только каких?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
The PRO
сообщение 4.03.2007 17:19
Сообщение #2


Билл Гейтс =)
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


Всё теперь работает - выводится нормально.
Все файлы из BGI я скопировал в каталог с программой,
при инициализации графики написал путь к папке BGI:
...
Initgraph(gd,gm,'c:\bp\bgi');
...

После этого нормально заработали шрифты и я, соответственно,
использовал процедуру SetTextStyle.
Вот образец с оптимальным шрифтом и его размером:
Uses crt,graph;
Var
gd,gm:integer;
Begin
gd:=0; gm:=0;
Initgraph(gd,gm,'C:\BP\BGI'); { <== }
SetTextStyle(2,0,0); { <-- }
OutText('My number is 1357');
Readkey;
End.

Мало ли у кого тоже такая проблема.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
hiv
сообщение 5.03.2007 9:57
Сообщение #3


Профи
****

Группа: Пользователи
Сообщений: 660
Пол: Мужской
Реальное имя: Михаил

Репутация: -  11  +


Цитата(The PRO @ 4.03.2007 17:19) *

Всё теперь работает - выводится нормально.
Все файлы из BGI я скопировал в каталог с программой,
при инициализации графики написал путь к папке BGI:
...
Initgraph(gd,gm,'c:\bp\bgi');
...


Еще раз объясняю: процедура Initgraph в начале ищет необходимые файлы в текущем каталоге, а потом в том, что указан в ее параметре. Я уверен, The PRO, что каталога c:\bp\bgi на твоей системе просто нету. Этот параметр нужно поменять на тот путь, где у ВАС лежат файлы BGI!
Например в командной строке я набираю команду:
dir c:\bp\bgi
и вижу следующий список файлов:
Код
C:\>dir c:\bp\bgi
Том в устройстве C не имеет метки.
Серийный номер тома: 6833-5C49

Содержимое папки c:\bp\bgi

21.11.2006  13:50    <DIR>          .
21.11.2006  13:50    <DIR>          ..
01.10.1992  06:00             6 266 ATT.BGI
01.10.1992  06:00            14 670 BOLD.CHR
01.10.1992  06:00             6 250 CGA.BGI
01.10.1992  06:00             5 527 EGAVGA.BGI
01.10.1992  06:00             8 439 EURO.CHR
01.10.1992  06:00            18 063 GOTH.CHR
01.10.1992  06:00             6 122 HERC.BGI
01.10.1992  06:00             6 665 IBM8514.BGI
01.10.1992  06:00            12 083 LCOM.CHR
01.10.1992  06:00             5 131 LITT.CHR
01.10.1992  06:00             6 042 PC3270.BGI
01.10.1992  06:00            13 596 SANS.CHR
01.10.1992  06:00            10 987 SCRI.CHR
01.10.1992  06:00             8 437 SIMP.CHR
01.10.1992  06:00            16 677 TRIP.CHR
01.10.1992  06:00            17 355 TSCR.CHR
              16 файлов        162 310 байт
               2 папок   1 019 428 864 байт свободно


Сообщение отредактировано: hiv - 5.03.2007 9:57


--------------------
Никогда не жадничай. Свои проблемы с любовью дари людям!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
The PRO   Процедура Outtext | Нужна помощь   27.02.2007 16:20
Алена   Почему? Что стало причиной для таких выводов? По ...   27.02.2007 17:04
The PRO   Почему? Что стало причиной для таких выводов? По...   27.02.2007 17:10
Алена   Я второй раз вопросы не повторяю - пока не соизвол...   27.02.2007 17:18
The PRO   1) Текст я вывожу так: Uses graph,crt; var gd,gm:i...   28.02.2007 17:37
hiv   [code=pas]Uses graph,crt; var gd,gm:integer; begin...   2.03.2007 10:57
Артемий2   Причины могут быть разные..А если такой текст в wr...   28.02.2007 18:03
T i m e   Ну по крайней мере readkey у тебя без crt не прока...   28.02.2007 18:35
The PRO   Причины могут быть разные..А если такой текст в w...   28.02.2007 18:45
Алена   Изменение шрифта ничего не дает? Может, сам CHR фа...   28.02.2007 18:50
The PRO   Изменение шрифта ничего не дает? Может, сам CHR ф...   28.02.2007 19:39
TarasBer   1. Стандартный шрифт глючит и у меня. Поэтому я им...   28.02.2007 19:59
mamont001   Тема уже не раз упоминалась. У меня кстати тот же ...   28.02.2007 21:01
Алена   mamont001, однако, когда я попросила проверить р...   28.02.2007 21:15
Артемий2   Скачай другой с Pascal..Может поможет...   28.02.2007 21:18
The PRO   Сейчас всё скачаю: Несколько версий Паскаля и утил...   28.02.2007 23:13
The PRO   Скачал несколько версий паскаля. Попробовал все, н...   1.03.2007 19:17
TarasBer   Скачал несколько версий паскаля. Попробовал все, ...   1.03.2007 19:34
The PRO   Да. Всё скачал. Поставил шрифты. И ничего. Наверно...   1.03.2007 20:50
TarasBer   Да. Всё скачал. Поставил шрифты. И ничего. Наверн...   1.03.2007 21:11
The PRO   Поставь вместо пустой строки путь где твои BGI ле...   3.03.2007 20:39
TarasBer   Я начинаю верить в гипотезу Hiv о том что никакого...   3.03.2007 20:59
The PRO   Я начинаю верить в гипотезу Hiv о том что никаког...   3.03.2007 21:30
TarasBer   Тогда можешь залить на какой нибудь FTP сервер св...   3.03.2007 22:15
Archon   200 метров? Это непорядок. Попробуй откомпилирова...   4.03.2007 0:21
TarasBer   200 метров? Это непорядок. Попробуй откомпилиров...   4.03.2007 13:07
The PRO   Всё теперь работает - выводится нормально. Все фай...   4.03.2007 17:19
hiv   Всё теперь работает - выводится нормально. Все фа...   5.03.2007 9:57


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 18.07.2025 3:56
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"