Как определить что с файловой переменной?

← →
S@shka (2002-05-31 13:35) [0]

var F : TEXT;
...
assignfile (F,"lala.dat");
Reset (F);
....
как потом определить что F проинициализирована, т.е. где нить в программе определить нужно ли файл закрывать и открыт ли он вообще?

← →
Игорь Шевченко (2002-05-31 13:40) [1]

procedure TForm1.Button3Click(Sender: TObject);
begin
with TTextRec(F) do
if Mode = fmClosed then
Edit1.Text := "Closed"
else if Mode = fmInput then
Edit1.Text := "Opened for read"
else if Mode = fmOutput then
Edit1.Text := "Opened for write"
else
Edit1.Text := "Unknown";
end;

Как определить что с файловой переменной? Найти похожие ветки