Datotekacki tip podataka

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

var  s:file of string;  a:array[1..3] of string;  i:integer; begin  assign(s,'spisak');  reset(s);  i:=0;  while not eof do   begin    i:=i+1;    read(s,a[i]);    writeln(a[i]);   end;  close(s);  readln(); end.   

Napravio sam fajl spisak i kada pokusam da ga ispisem pomocu ovog koda ne pise mi nista na ekranu.S ovim kodom sam provjerio i radi:
var  s:file of string;  a:array[1..3] of string;  i:integer; begin  assign(s,'spisak');  reset(s);  for i:=1 to 3 do   begin    read(s,a[i]);    writeln(a[i]);   end;  close(s);  readln(); end.   

Tek sam poceo da radim sa datotekackim tipom podataka, a potrebno mi je za maturski rad, tako da bi mi koristio i neki tekst na internetu za ovo, nesto sam citao ,ali ne objasnjava nista vezano za ovo. Hvala na pomoci.

• 2Ovo se svidja korisnicima: bosmilan, ThePhilosopher
  
  Registruj se da bi pohvalio/la poruku!

Koliko vidim, problem je što pozivaš funkciju eof bez parametara. Ako je tako pozoveš, onda ona proverava da li ima još podataka na standardnom ulazu (u većini slučajeva je to ulaz sa tastature). Pozovi funkciju ovako:
eof(s)
Obrati pažnju i na to da ćeš dobiti grešku ako datoteka ima više od 3 linije, jer će taj kod pokušati da upiše 4. liniju u a[4].

Nažalost, ne mogu da nađem ništa konkretno na internetu što bi mogao da iskoristiš za bolje razumevanje ovakvog rada sa datotekama.

Uvek možeš ovde da pitaš ako ti nešto nije jasno

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Srki_82 ::Koliko vidim, problem je što pozivaš funkciju eof bez parametara. Ako je tako pozoveš, onda ona proverava da li ima još podataka na standardnom ulazu (u većini slučajeva je to ulaz sa tastature). Pozovi funkciju ovako:
eof(s)
Obrati pažnju i na to da ćeš dobiti grešku ako datoteka ima više od 3 linije, jer će taj kod pokušati da upiše 4. liniju u a[4].

Nažalost, ne mogu da nađem ništa konkretno na internetu što bi mogao da iskoristiš za bolje razumevanje ovakvog rada sa datotekama.

Uvek možeš ovde da pitaš ako ti nešto nije jasno
Hvala!! Sad me sramota kad vidim sta sam zaboravio. To za 4 linije znam, zato sto sam stavio 3 linije teksta u fajl pa sa u var deklarisao samo do tri jer vec znam unapred Hvala jos jednom