
Serdecznie dziękuję za pomoc.
uses Graph;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'C:\Program Files\TP');
ErrCode := GraphResult;
if ErrCode = grOk then
begin { Do graphics }
Line(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
Readln;
end.
InitGraph(grDriver, grMode,'C:\Program Files\TP');
Gazprom napisał(a):Chciałbym ci dać pochwałę, ale niestety jest jakiś błąd.
Użytkownicy przeglądający to forum: gesori9904 oraz 66 gości