Forum Programosy

Mam problem, gdy uruchamiam programik (w jezyku TURBO PASCAL) z obsluga grafiki, wyswietla mi sie blad: GRAPHIC NOT INITIALIZED.
Oto on:

uses crt,graph;
var
a,b:integer;
begin
clrscr;
detectgraph(a,b);
initgraph(a,b,'C:\Progra~1\TP\BGI');
setcolor(green);
circle(100,100,30);
closegraph;
readln;
end.

Co się dzieje, dlaczego nie chce dzialac.
Prosze o pomoc...

A jaka masz rzeczywistą ścieżkę dostępu do bibliotek BGI ???
W dosie przeważnie jest katalog określany 8 literami, a jesli jest dłuższy ucina go i wychodzi z tyldą -> ~
więc powinien mieć taki katalog: c:\progra~1\tp\bgi

A najlepiej skopiuj TP na dysk C: do katalogu TP i po kłopocie będziesz miał z nazwami ucinanych katalogów.

Był już identyczny temat ;ppp
http://forum.programosy.pl/viewtopic.php?f=1&t=116963&p=881617&hilit=pascal#p881617
Tam kolega ma ścieżkę:

Kod: Zaznacz wszystko

InitGraph(grDriver, grMode,'C:\Progra~1\TP');

i pisze że działa - spróbuj też zainicjować grafikę tak jak on jak by zmiana ścieżki nie pomogła.

MUTOPOMPKA napisał(a):A najlepiej skopiuj TP na dysk C: do katalogu TP i po kłopocie będziesz miał z nazwami ucinanych katalogów.

Jak ścierzka do folderu pascala jest prosta (8 znakowe foldery) to wystarczy wstawić pusty string zamiast ścieżki dostępu (100% we FP tak działa w TP nie dam głowy).
Ludzie używajcie FreePascala Nieodpłatne wersje TP nawet kolorowania składni nie mają xD

Dzieki ale te kopiowania itp. nic nie daja.
Sam doszedlem w czym jest problem. Wystarczylo wstawic READLN przed CLOSEGRAPH, a wiec programik bedzie wygladac tak:

uses crt,graph;
var
a,b:integer;
begin
clrscr;
detectgraph(a,b);
initgraph(a,b,'C:\Progra~1\TP\BGI');
setcolor(green);
circle(100,100,30);
readln;
closegraph;
end.

I wtedy bedzie dzialac.
Jest tak dlatego ze, program nie zdazy narysowac kola, a ja juz karze mu zrobic CLOSEGRAPH.

jeans napisał(a):wyswietla mi sie blad: GRAPHIC NOT INITIALIZED

O tym rozmawialiśmy i to naprawiliśmy
Umiejscowienie funkcji "readln;" nie miało na to żadnego wpływu.