После линковки файла 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.
Я уже не знаю,что тут еще не так(
Может я ее описываю неправильно, не могу разобраться....кста лежит LITT.OBJ там же где и сама прога
А может, все-таки, привести сообщение об ошибке, которое тебе выдается, и не делать ПО-СВОЕМУ, а делать так, как написано в FAQ-е (директива $L - непосредственно ПЕРЕД описанием процедуры)?
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 и в директории, где лежит сама прога.