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?
Owl