Процедура Outtext | Нужна помощь, Помогите. Дело всего лишь в опциях компилятора. Опции

[The PRO]

Поставь вместо пустой строки путь где твои BGI лежат, у меня вот так работает отлично:

Uses graph,crt;
var gd,gm:integer;
begin
gd:=0; gm:=0;
initgraph(gd,gm,'C:\BP\BGI');    { <- здесь }
outtext('Hi a am 123');
readkey;
end.

Это одно и то же. Путь к BGI нужно вписывать если паскаль самостоятельно не может определить
где они лежат. Эффект тот же.
Да я завтра у учителя спрошу - в чём проблема.

[TarasBer]

Я начинаю верить в гипотезу Hiv о том что никакого LITT вы не загрузили.
Скопируйте ВСЁ содержимое папки BGI в папку, где лежит Паскаль, может это поможет...
Вы на 100% уверены что у вас загрузился именно LITT.CHR?
Попробуйте сделать масштаб 10: SetTextStyle(SmallFont, 0, 10); Если символы получились нормальные (да, шрифт векторный, но битый), то ответьте - а в моей программе (см пред. посты в этой теме) буковки нормальные (она использует собственный шрифт)?
Или попробуйте SetTextStyle(4, 0, 10) - должны получиться буковки с наворотами.
А если символы получились из больших квадратиков (матричный шрифт по умолчанию, то есть вы не умеете менять шрифт, но говорите, что компьютер плохой и шрифт битый) - то проблема не в компьютере совсем, а я не буду говорить где, чтоб никого не оскорбить.

[The PRO]

Я начинаю верить в гипотезу Hiv о том что никакого LITT вы не загрузили.
Скопируйте ВСЁ содержимое папки BGI в папку, где лежит Паскаль, может это поможет...
Вы на 100% уверены что у вас загрузился именно LITT.CHR?
Попробуйте сделать масштаб 10: SetTextStyle(SmallFont, 0, 10); Если символы получились нормальные (да, шрифт векторный, но битый), то ответьте - а в моей программе (см пред. посты в этой теме) буковки нормальные (она использует собственный шрифт)?
Или попробуйте SetTextStyle(4, 0, 10) - должны получиться буковки с наворотами.
А если символы получились из больших квадратиков (матричный шрифт по умолчанию, то есть вы не умеете менять шрифт, но говорите, что компьютер плохой и шрифт битый) - то проблема не в компьютере совсем, а я не буду говорить где, чтоб никого не оскорбить.

Тогда можешь залить на какой нибудь FTP сервер свой паскаль?
И я проверю.

[TarasBer]

Тогда можешь залить на какой нибудь FTP сервер свой паскаль?
И я проверю.

У меня Паскаль вместе со всем всем всем 200 метров... Не могу.

[Archon]

200 метров? Это непорядок.

Попробуй откомпилировать тестовую программу и запустить её на другом компе или выложи прямо здесь (вместе с файлом шрифта, разумеется). Только экзешник выкладывай через модераторов.

[TarasBer]

200 метров? Это непорядок.

Попробуй откомпилировать тестовую программу и запустить её на другом компе или выложи прямо здесь (вместе с файлом шрифта, разумеется). Только экзешник выкладывай через модераторов.

Вы к кому обращаетесь? Судя по первой фразе, ко мне, судя по второй - к Про.
Паскаль у меня 200 метров, потому что мусора туда накидано. Даже фотографий есть немного.

[The PRO]

Всё теперь работает - выводится нормально.
Все файлы из 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.

Мало ли у кого тоже такая проблема.

[hiv]

Всё теперь работает - выводится нормально.
Все файлы из 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