Dik, uz to ide. Myslim ze jedna premenna ma nazov text, takze to zrejme bola chyba.
Nevidim cely zdrojak, takze tazko mozem najst chybu. Ale mozno je chyba vo viacnasobnom pouziti toho isteho nazvu, napr. raz ako premennu a potom ako typ. A ak nie, tak skus miesto Text pouzit TextFile.
co je na tomto zle?var
output_file : text;
donedavna vsetko fungovalo, ale teraz sa pri kompilacii vyskitne asi 31 chyb ktore hlasia Error: Error in type definition
Vsetky upravy, ktore som robil medzi tym ako to fingovalo a tym ako to prestalo fungovat som zmazal a stale to hlasi tu istu cgybu pri premennych typu text
Aj tak nerozumiem, preco je seek a filesize len pre netextove subory.Ale co sa da robit, vymyslim nejake alternativne riesenie.
Existuje procedura Seek, ktora prejde na dany zaznam v subore, ale ta nie je dostupna pre textove subory. Takze mozes pouzit netypovany subor, resp. subor s udanym typom a funkciu Seek.
Alebo si pomocou cyklu s readnl vytvor vlastnu proceduru, ktora preskoci dany pocet riadkov.
Alebo, ak je subor maly, mozes ho cely nacitat do retazca a pracovat s nim ako s retazcom.
Mno nemusim ale aj tak by sa mi teraz zislo nieco ako gotoxy ale aby som sa pohyboval v subory...je nieco take?
Nemusis ho zatvarat. Staci ho opat otvorit cez Reset.
tak, a je tu dalsia otazka: pomocouwhile not eof(subor) do begin
readln(subor,line);
writeln(line);
end;
som precital obsah textoveho suboru. Lenze, ked ho chcem precitat druhy krat, tak potrebujem, aby sa mi kurzor presunul naspat na zaciatok suboru, inak eof okamzite vrati true a nic sa neprecita. Napadlo ma, ze subor najprv zavriem a potom znova otvorim a kurzor budes zas na zaciatku suboru, ale je to trochu neprakticke riesenie.
toto je super, pekne mi to spriehladnilo zdrojak, dik. Ten includovany subor, musi byt v nejakom textovom formate? uz som skusal s priponou .txt a tiez to fungovalo.
Obmena #include z C++ je:{$INCLUDE subor.inc}
Pascal ma vsak aj iny sposob - jednotky (unit). O nich napisem clanok niekedy neskor.