[ Djuki @ 09.02.2002. 18:00 ] @
Izvinjavam se na ovim mojim lame postovima ali moderator moze da izbrise samo molim nakon shto mi bude odgovoreno:

zashto mi ne radi program?:

program prog(input, output, datoteka);
type datoteka= file of integer;
var x: integer;
d: datoteka;
begin
x:= 10;
rewrite(d);
d^:=x; { moze i write(d, x); }
put(d); {umesto ova dva reda}
end.

isto tako moze i odgovor da bude vezan i za citanje iz datoteke. Tnx unapred!
[ _owl_ @ 09.02.2002. 21:37 ] @
Citat:
Djuki:


Izvinjavam se na ovim mojim lame postovima ali moderator moze da izbrise samo molim nakon shto mi bude odgovoreno:







zashto mi ne radi program?:







program prog(input, output, datoteka);



type datoteka= file of integer;



var x: integer;



d: datoteka;



begin



x:= 10;



rewrite(d);



d^:=x; { moze i write(d, x); }



put(d); {umesto ova dva reda}



end.







isto tako moze i odgovor da bude vezan i za citanje iz datoteke. Tnx unapred!









Pa ovaj kolko se ja secam


pre nego sto uradis rewrite(d) moras da kazes sa kojim fajlom ces raditi tj.


assign(d, 'imefajla.ext');


na kraju moras da stavis i close(d);


Sa reset(d) otvaras datoteku za citanje a ako hoces da proveris da li fajl postoji onda to radis ovako:


Code:



assign(d,'fajl.txt');


{$I-}


reset(d);


close(d);


{$I+}


if (IOResult=0) then


        writeln('datoteka postoji');






P.S
Gojko zasto kad stavis code tagove forum stavi prored na jedno dva reda?
[ Dejan Krstic @ 21.02.2002. 16:50 ] @
Citat:

Code:


assign(d,'fajl.txt');
{$I-}
reset(d);
close(d);
{$I+}
if (IOResult=0) then  writeln('datoteka postoji');



Ne treba ti tamo close(d) posto se ne zna da li ce reset uspeti ili nece.