|
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.
|
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 
