Главная страница
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.017 c
1-30747
SuperVK
2002-05-30 10:32
2002.06.10
TRichEdit - перенос страницы


1-30899
omckma
2002-05-30 06:35
2002.06.10
Файл справки


4-31042
anaxemon
2002-04-08 08:21
2002.06.10
консольный режим


4-31061
Darlok
2002-04-07 14:07
2002.06.10
Internet


14-30998
Alchem
2002-05-04 19:33
2002.06.10
SoftIce 4.0.5