Цитата:
|
Повідомлення від Ganesha
... хех....
у меня такая *ЦензУрЕд*
буду очень благодарна еси кто-то поможет.
все проги написанные на паскале запускаются нормально... кроме графических. Несмотря на то что и graph.tpu есть, и в той же папке где моя программа, всё равнго не запускается.
Что делать?  |
Для работы с модулем Graph тебе нужно его инициализировать. А это делается так:
uses Graph;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,
'e:\bp7\bgi\egavga.bgi');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
Line(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.
То что выделено красным - это путь к файлу egavga.bgi этот путь впиши сама. Обычно этот файл находится в папке BGI. Ну а там где сиим цветом то это сама программа. Кстати все инструменты которые касаются графа можно найти в хелпе. Выбираешь индекс а потом просто вводишь GRAPH. Там их куча. Line, circle, box и т.д......