Lame Again: Datoteke u Pasalu

Odgovori Nova tema

2 odgovora
3.999 pregleda

Lame Again: Datoteke u Pasalu 09.02.2002. u 19:00 · pre 301 mesec #1

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!

Re: Lame Again: Datoteke u Pasalu 09.02.2002. u 22:37 · pre 301 mesec #2

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?

Potpis

Owl

Re: Lame Again: Datoteke u Pasalu 21.02.2002. u 17:50 · pre 300 meseci #3

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.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme