Текущий архив: 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.012 c
