Szövegfájl másolása egy új szövegfájlba úgy, hogy mi adjuk meg a programban a fájlok neveit és lekezeljük a lehetséges hibát is (MasoloHibakezeles.pas) program MasoloHibakezeles; uses crt; var f,g:text; s1,s2,s:string; BEGIN clrscr; write('A masolando fajl neve: '); readln(s1); Bekérjük a másolandó fájl nevét. {$I-} assign(f,s1); {$I+} f-hez hozzárendeljük a bekért fájlnevet, de mivel ez hibához vezethet akkor, ha a megadott fájl nem létezik, lekezeljük a lehetséges hibát, azaz {$I-} és {$I+} közé írjuk be azt az utasítást, ami hibához vezethet. if (IOresult>0) then begin Az IOresult, vagyis InputOutputresult akkor ad vissza 0-nál nagyobb értéket, ha valamilyen hiba bekövetkezik, jelen esetben, ha a fájl nem található. writeln('File not found!'); Ha a hiba fellép, kiírjuk, hogy a fájl nem található és halt;-tal kilépünk a programból. halt; end; write('Az uj fajl neve: '); readln(s2); Bekérjük az új fájl nevét, amibe másolni szeretnénk, ennek a fájlnak nem kell létezőnek lenni, mivel a program létrehozza nekünk. assign(g,s2); g-hez hozzárendeljük az új fájlt, majd mint a korábbi másoló programnál, elvégezzük a másolást. reset(f); rewrite(g); writeln('Masolas kezedete...'); while (not eof(f)) do begin readln(f,s); writeln(g,s); end; writeln('A masolas veget ert.'); close(f); close(g); readkey; END.