Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ работа с директивами

Автор: -=АнЮтА=- 18.12.2006 18:10

После линковки файла LITT программа не может найти файл LITT.OBJ Может нужно как-то указать путь к нему?

{$L LITT.OBJ}
Uses crt,Graph;
Procedure OpenGraph;
var gd,gm, ge: integer;
begin
gd:=detect;
initgraph(gd, gm, 'egavga.bgi');
ge:= GraphResult;
if ge<>0 then writeln (GraphErrorMsg(ge));
end;


Procedure LittProc; External;
Begin
If RegisterBGIFont( @LittProc ) < 0 Then
Begin
WriteLn( 'Error registering font : ',
GraphErrorMsg(GraphResult) );
Halt( 100 )
End;

Opengraph;
SetTextStyle( SmallFont, HorizDir, 4 );
OutTextXY(10,20,'привет');
End.


Я уже не знаю,что тут еще не так( blink.gif
Может я ее описываю неправильно, не могу разобраться....кста лежит LITT.OBJ там же где и сама прога

Автор: volvo 18.12.2006 20:10

А может, все-таки, привести сообщение об ошибке, которое тебе выдается, и не делать ПО-СВОЕМУ, а делать так, как написано в FAQ-е (директива $L - непосредственно ПЕРЕД описанием процедуры)?

Автор: -=АнЮтА=- 19.12.2006 16:17

Uses Graph;
Var grDriver, grMode, ErrCode : Integer;

{$L Litt.OBJ}
Procedure LittProc; External;

Begin
If RegisterBGIFont(@LittProc) < 0 Then
Begin
WriteLn('Error registering driver : ',
GraphErrorMsg(GraphResult)); Halt(100)
End;

grDriver := VGA; grMode := VGAHi;
InitGraph(grDriver, grMode, '');
ErrCode := GraphResult;
If ErrCode <> grOk Then
Begin
WriteLn('Graphics error : ', GraphErrorMsg(ErrCode));
Halt(100)
End;
SetTextStyle( SmallFont, HorizDir, 4 );
OutTextXY(10,20,'ghbdf');
End.



При таком тексте программы выдается сообщение 15 File not found (LITT.OBJ)
Пролинкована процедура с этим именем, файл находится в директории BGI и в директории, где лежит сама прога.