Игруха! (нужна модификация), нужна помощь! Опции

[Shura]

Вот это уже интересно! Думаю это многим будет полезно! Я, например, не знал... Так а можно любой файл прилинковать?

[volvo]

Да... Любой файл данных, где-то были даже примеры прилинковки PCX-файлов, с последующим их отображением из программы...

[punkska]

Спасибо volvo! Ты Суровый Профи !!! :flowers:

[Дож]

Теперь, понял...
И вправду интересно.

[punkska]

возкли некоторые вопросы...

Код

{$L EGAVGA.OBJ}
Procedure EGAVGADriverProc; External;
{$L LITT.OBJ}
Procedure LittFontProc; External;

External; ??? это что такое??? объясните...

и что такое cleardevice; я конечно догадываюсб =) но хотелось определение получить!

Сообщение отредактировано: punkska - 17.09.2005 1:48

[volvo]

punkska, ответы внимательнее читаем ;)

Еще раз: LITT.OBJ - это файл LITT.CHR (файл, содержащий мелкий шрифт - smallFont), только переконвертированный в LITT.OBJ вот такой командой:
, и присоединенный к исполнимому файлу, как внешняя процедура:

{$L LITT.OBJ}
Procedure LittFontProc; External;

С EGAVGA.OBJ - то же самое ...

Фактически External говорит компилятору, что процедуры с таким именем в PAS файле не будет, а находится эта процедура где-то во внешнем OBJ файле. Кстати, именно поэтому обычно Extern и {$L ...} располагаются рядом (для удобства программиста, чтобы не забыть прилинковать OBJ), хотя могут быть в любом месте программы.

При наличии такого объявления на этапе компиляции Паскаль не будет искать процедуры с именами EGAVGADriverProc и LittFontProc в текущем PAS-файле. Они будут искаться только на этапе линковки (редактирования связей) во всех файлах, описанных в {$L ...}

А насчет ClearDevice и иже с ними - это можно посмотреть в Help-е на Turbo Pascal, т.к. это стандартная процедура модуля Graph (очистка графического экрана) ...