Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];

Вниз

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

← →
кондратий   (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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c