IOResult
Adam Boduch
IOResult
Moduł: SysUtils
Przykład prezentuje działanie funkcji. Jeśli w katalogu z programem nie znajduje się plik, który chcemy otworzyć program się nie "posypie" lecz wyświetli odpowiednią dla użytkownika informację:
Var f: Text;
s: String;
Begin
Assign(f, 'plik.txt');
{$I-} Reset(f); {$I+}
If IOResult <> 0 Then
Begin
Writeln('Brak pliku');
ReadLn;
Halt;
End;
ReadLn(f, s);
Close(f);
End.
Przydaloby sie jakis przyklad tutaj dodac.