czy plik 'plik.txt' jest aktualnie otwarty

Jaka funkcja sprawdza czy plik: 'plik.txt' jest aktualnie otwarty czy też zamknięty?

Function Czy_istnieje(Nazwa: String): Boolean;
var Plik: file;
begin
{$I-}
Assign(Plik, Nazwa);
FileMode := 0;
Reset(Plik);
Close(Plik);
{$I+}
Czy_istnieje := (IOResult = 0) and (Nazwa <> '');
end;

blasi napisał(a)

Jaka funkcja sprawdza czy plik: 'plik.txt' jest aktualnie otwarty czy też zamknięty?

jesli program blokuje dostep do pliku to po prostu go nie otworzysz ... inaczej tego pewnie nie sprawdzisz