assign(x,imefajla);
reset(x);
for i:=1 to linija do
begin
readln(x);
end;
while not eoln(x) do
begin
seek(x,pozicija);
read(x,ch);
write(ch);
end;
close(x);
E sad problem je u sledecem
kad definisem x kao x:text onda readln(x) radi (prebacuje pokazivac na novi red u fajlu x) ali zato seek ne radi i prijavljuje incompatible file types. Ali kad definisem x kao x: file of char onda mi radi seek al ne radi readln(x) i isto kaze incompatible file types ali ovaj put za readln(x). E sad jel zna neko zasto je ovo tako i ako neko zna elegantniji nacin za menjanje linije u fajlu (meni je ono sa for prvo palo na pamet al to sad i nije tolko vazno) BTW. kolko ja znam tip "text" jeste standardno ime koje je definisano sa
type
text=file of char;
PS: ovo je probano u delphiju 5 i u turbo pascalu i isto prijavljuje i u jednom i u drugom