Obs³uga b³êdów
Podczas pracy z plikami, mo¿e siê zdarzyæ, ¿e kopiowany plik nie istnieje albo ¿e plik, do którego chcemy co¶ dopisaæ zosta³ zabezpieczony, lub u¿ywa go inny program. Co wtedy? Gdy nie dodamy zabezpieczeñ, nasz program zostanie przerwany.
Pascal udostêpnia dyrektywy kompilatora, które pozwalaj± na przejêcie kontroli nad pojawiaj±cymi siê b³êdami. Tak± dyrektyw± jest {$I-} oraz {$I+} Gdy pomiêdzy nimi umie¶cimy kod, bêdzie on odporny na b³êdy wej¶cia/wyj¶cia, inaczej mówi±c odporny równie¿ na b³êdy dotycz±ce obs³ugi plików.
A jak sprawdziæ czy plik istnieje? Mo¿na napisaæ w³asn± funkcjê, np. FileExists. Bêdzie próbowa³a otworzyæ plik. Je¶li siê nie uda, bêdzie zwraca³a warto¶æ False, czyli plik nie istnieje.
function FileExists(const FileName : string) : Boolean;
var F : File;
begin
{$I-}
Assign(F, FileName);
Reset(F, 1);
Close(F);
{$I+}
FileExists := IOResult = 0 ;
end;