проверка что файл не закрыт

[Attid]

чет у меня лыжи встали

простая работа с файлом

Код: Выделить всё

Var F : text;

begin
Assign (f,'Test.txt');
ReWrite (F);
Writeln (F,'Some text written to Test.txt');
close (f);
end;

как я могу узнать что переменная F инициализирована, например перед закрытием или записью хочу убедится что файл открыт.

[wavebvg]

Попробуй игнорировать все ошибки при выполнении записи, а потом посмотри коды ошибок - если ошибки есть, тогда файл был открыт для записи

[B4rr4cuda]

Не все ошибки, а только ввода\вывода. Если не ошибаюсь, задается директивой {$I-}

[Sergei I. Gorelkin]

Код: Выделить всё

  if TTextRec(f).mode = fmClosed then
    // файл закрыт


[alexs]

А почему потоки не используеш? По моему мнениию, с ними удобнее.

[m_guest]

задается директивой {$I-}

А дальше используется функция IOResult. Вроде так..

[Attid]

ой чет с новым форумом так и не заметил что мне ответили =)

wavebvg
не гламурно, моло ли что еще там пропущу.

B4rr4cuda
да такое знаю но все равно это подавление ошибок.


Sergei I. Gorelkin
похоже на правду =) правда не понял что есть TTextRec(f).mode, но попробую

alexs
да не знаю как то по привычке =) а с потока построчно читать можно или самому конец строки искать ?
да и как-то потоки мне кажется больше ресурсов потреблять будут если их в секунду сотню создавать =)

m_guest
так, но не хочу так выше написал.

[shade]

if TTextRec(f).mode = fmClosed then
// файл закрыт

ИМХО, нестоит
хотя бы потому, что пока не вызовешь Assign, там будет мусор

Мне кажется что появление такого вопроса есть признак выбора не удачного решения