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

Вниз

как узнать открыт ли файл ...   Найти похожие ветки 

← →
кондратий   (2002-08-21 17:14) [0]

открываю файл ...

AssignFile(FT, ExtractFileDir(Application.ExeName)+"\Plugins\target.tmp");
Reset(FT);
while not Eof(FT) do
begin
ReadLn(FT, S);
...

как мне узнать открыт ли он ???

---

← →
кондратий   (2002-08-21 17:18) [1]

что-то тина FileIsOpen(F : File):boolean ???

---

← →
RV ©   (2002-08-21 17:21) [2]

наверное попробовать прочитать из него
предварительно с дерективой {$I-}
и IOResult смотреть

---

← →
кондратий   (2002-08-21 17:27) [3]

ну тогда мне лудше уже делать

{$I-}
try CloseFile(FM) except end;
try CloseFile(FT) except end;
{$I+}


:-)

просто чтоб не вылетали эти ексчепционсы ...

---

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

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

Наверх

Память: 0.47 MB
Время: 0.02 c