{ P r o g r a m m i a l g u s } Program vaiketahed_suurtahtedeks; var c : char; { töödeldav sümbol } sNimi : string; { sisendfaili nimi } vNimi : string; { väljundfaili nimi } sf : text; { sisendfail } vf : text; { väljundfail } begin write('Sisesta sisendfaili nimi : ');readln(sNimi); write('Sisesta väljundfaili nimi : ');readln(vNimi); assign(sf, sNimi);{$I-}reset(sf);{$I+} { avame sisendfaili } if IOResult <> 0 then { kui sisendfaili avamine õnnestus, siis IOResult = 0 } begin writeln('Sisendfaili ei õnnestunud avada.'); writeln('Palun kontrollige, kas see fail üldse eksisteerib!'); halt; { lõpetame programmi töö } end; assign(vf, vNimi);{$I-}rewrite(vf);{$I+} { loome väljundfaili } if IOResult <> 0 then { kui väljundfaili loomine õnnestus, siis IOResult = 0 } begin writeln('Väljundfaili ei õnnestunud luua.');
Assigned (function) kontrollib pointeri väärtustatust ChDir (procedure) vahetab aktiivset kataloogi Close (procedure) suleb avatud faili Eof (function) kontrollib faililõpu sümboli esinemist Erase (procedure) kustutab välise faili FilePos (function) teatab positsiooni failis FileSize (function) teatab faili suuruse GetDir (procedure) teatab aktiivse kataloogi IOResult (function) teatab viimase operatsiooni tulemuse MkDir (procedure) tekitab uue kataloogi Rename (procedure) nimetab faili ümber Reset (procedure) avab faili lugemiseks Rewrite (procedure) avab faili kirjutamiseks RmDir (procedure) kustutab kataloogi Seek (procedure) seab uue positsiooni failis Truncate (procedure) defineerib momendi positsiooni faili lõpuks Mitmesugust
annaabi.ee 
