[Gad99]

Код:

procedure TForm1.N5Click(Sender: TObject);
var
  searchResult : TSearchRec;
begin
  SetCurrentDir(CurDir+'\data');
  if FindFirst('*.tms', faAnyFile, searchResult) = 0 then
  begin
    repeat
      AssignFile(Anketa1,searchResult.Name);
      {$IOChecks off}
      Reset(Anketa1);
      Read(Anketa1,Anketa);
      CloseFile(Anketa1);
      {$IOChecks on}
      Load1.ListBox1.Items.Add(Anketa.FIO[1]+' '+Anketa.FIO[2]);
    until FindNext(searchResult) <> 0;
  Load1.Visible := True;
  FindClose(searchResult);
  End;
end;

В данном представлении все работает абсолютно нормально но если включить проверку ошибок то вылазит I/O error 183 при выполнении Reset, Read или Close операторов

[moo2k]

Если мне не изменяет файл, то ошибка "183" - означает ошибку при создании файла. Ты не объявил "Anketa1" в разделе var, как файл. Вот и прога не может создать файл и ты не можешь выполнить операции с файлом - Reset, Read или Close.

[Gad99]

1) Переменная объявлена как глобальная
2) Неужели если бы переменная не была объявлена вообще то с отключенной проверкой ошибок все бы работало как часы ?

[mav_c]

Сообщение от moo2k

Если мне не изменяет файл, то ошибка "183" - означает ошибку при создании файла. Ты не объявил "Anketa1" в разделе var, как файл. Вот и прога не может создать файл и ты не можешь выполнить операции с файлом - Reset, Read или Close.

-))))))

[Aristarh Dark]

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

[Gad99]

Дык пробовал объявлять локальную файловую переменную а толку ноль, компилятор все равно ругается

[voron_paa]

Код:

  SetCurrentDir(CurDir+'\data\');

Вот так поставь... тут путь не правильный...
И будет тебе счастье...

[Gad99]

Нифига подобного все равно вылазит ошибка.

Ну дак что больше нет вариантов ???