Wyjątki
Wyjątki to mechanizmy umożliwiające aplikacji powrót do normalnego działania po wystąpieniu błędu. Jest to rzecz prosta więc przejdziemy do przykładu:
var
plik: TextFile;
begin
AssignFile(plik, 'plik.abc');
try
reset(plik);
try
write('tekst');
finally
CloseFile(plik);
end;
except
ShowMessage('Błąd wejścia/wyjścia');
end;
end;
W konstrukcji "try...finally" wpierw wykonywane są operacje zawarte pomiędzy klauzulami try i finally. Po ich zakończeniu wykonywane są zadania z klauzuli finally i end, wykonywane są niezależnie od tego jaki był skutek wykonania pierwszej klauzuli. Klauzula except i end służy do obsłużenia wyjątku. Rzecz jest prosta dlatego nie będę się tu rozpisywał.
var
plik: TextFile;
begin
AssignFile(plik, 'plik.abc');
try
reset(plik);
try
write('tekst');
finally
CloseFile(plik);
end;
except
ShowMessage('Błąd wejścia/wyjścia');
end;
end;
W konstrukcji "try...finally" wpierw wykonywane są operacje zawarte pomiędzy klauzulami try i finally. Po ich zakończeniu wykonywane są zadania z klauzuli finally i end, wykonywane są niezależnie od tego jaki był skutek wykonania pierwszej klauzuli. Klauzula except i end służy do obsłużenia wyjątku. Rzecz jest prosta dlatego nie będę się tu rozpisywał.
Autorem tekstu jest:
Piniol
Materiał dodany przez użytkownika: alphan
