Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.10;
Скачать: CL | DM;

Вниз

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

 
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;



Страницы: 1 вся ветка

Текущий архив: 2002.06.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
14-30969
anod
2002-05-06 00:19
2002.06.10
DDE


1-30838
Aleksandr
2002-05-28 14:16
2002.06.10
Можно ли воспользоваться WaitForSingleObject таким образом?


8-30933
Fast
2002-01-13 21:55
2002.06.10
Macromedia Flash


1-30900
Роман Мишин
2002-05-30 09:43
2002.06.10
печать шрифтов не установленных в системе


4-31051
DeMoN-777
2002-04-09 10:55
2002.06.10
Критическая запарка (ComboBox)