I/O error 183, очень странно...

[Flame_of_Death]

Среда: Delphi 7
Код:

procedure TForm1.Button3Click(Sender: TObject);
var
dous_file: TextFile;
begin
{$IOChecks off}
MkDir('outfiles');
{$IOChecks on}
if RadioButton1.Checked = True then
  begin
AssignFile(dous_file, GetEnvironmentVariable('USERPROFILE')+'\outfiles\dou_4041_'+logfilename+'.txt');
  end;
if RadioButton2.Checked = True then
  begin
AssignFile(dous_file, GetCurrentDir+'\outfiles\dou_4041_'+logfilename+'.txt');
  end;
{$IOChecks off}
  ReWrite(dous_file);
  if IOResult <> 0 then
    begin
    MessageDlg ('Ошибка создания файла ', mtError,[mbOk],0);
    exit;
  end;
{$IOChecks on}
end;

Ошибка: I/O error 183
P.S. Переменная logfilename не пустая, при запуске программы ей присваивается уникальное значение.
Ошибка вылетает на строке: ReWrite(dous_file);
Хотя файл создается успешно, пример имени: dou_4041_22092009171919.txt
Помогите разобраться с данной проблемой, я понимаю, что ошибка может быть крошечной, но вот хоть убейте - не вижу.

Заранее спасибо за помощь!

[SuperVisor]

А GetCurrentDir тебе точно то значение возвращает, которое ты ожидаешь????

[Flame_of_Death]

Возвращает текущую рабочую папку, т.е. мой рабочий стол, при необходимости на нем же создается папка outfiles.

Только что попробовал, вывелся путь на рабочий стол, создался файл dou_4041_22092009174935.txt. Но при ReWrite(dous_file); снова 183...

[Serge_Bliznykov]

Да что там смотреть!
Жуткий код!
1) AssignFile ошибку никогда не даст ошибку. ни при каких условиях.. Зачем при этом выключать проверку ошибок - не ясно!
2) зачем КАЖДЫЙ раз создавать папку 'outfiles', при чём в каталоге запуска программы, при чём не зависимо от того, есть такая папка, нет... ЗАЧЕМ!?
3) если ни RadioButton1, ни RadioButton2 не выбраны, переменная dous_file вообще не будет задана!
4) ошибки можно ловить в try except
например, в except выведите имя файла, который пытаетесь создать...
5) файл закрывать не забываете?!

ужасъ

[Stilet]

Для начала хотя бы так поправь:

procedure TForm1.Button3Click(Sender: TObject);
var
dous_file: TextFile;
begin
MkDir('outfiles');
if RadioButton1.Checked = True then
  begin
AssignFile(dous_file, GetEnvironmentVariable('USERPROFILE')+'\outfiles\dou_4041_'+logfilename+'.txt');
  end;
if RadioButton2.Checked = True then
  begin
AssignFile(dous_file, GetCurrentDir+'\outfiles\dou_4041_'+logfilename+'.txt');
  end;
if RadioButton2.Checked or RadioButton1.Checked then begin
  ReWrite(dous_file);
  if IOResult <> 0 then
    begin
    MessageDlg ('Ошибка создания файла ', mtError,[mbOk],0);
    exit;
  end;
end;
end;

[Flame_of_Death]

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

1) AssignFile ошибку никогда не даст ошибку. ни при каких условиях.. Зачем при этом выключать проверку ошибок - не ясно!
2) зачем КАЖДЫЙ раз создавать папку 'outfiles', при чём в каталоге запуска программы, при чём не зависимо от того, есть такая папка, нет... ЗАЧЕМ!?
3) если ни RadioButton1, ни RadioButton2 не выбраны, переменная dous_file вообще не будет задана!
4) ошибки можно ловить в try except
например, в except выведите имя файла, который пытаетесь создать...
5) файл закрывать не забываете?!

1. Без комментариев.
2. Код делался на скорую руку, дальше будут прорабатываться все детали, в том числе и эта.
3. RadioButton2 установлен по умолчанию как True, после начала обработки изменение параметров RadioButton блокируется.
4. Попробую.
5. Так я же его даже открыть не успеваю, или я не так Вас понял?

[Serge_Bliznykov]

2. Код делался на скорую руку, дальше будут прорабатываться все детали, в том числе и эта.

не обижайтесь, но на скорую руку надо писать ПРОСТОЙ и гарантированно РАБОЧИЙ код, который потом можно усложнять (сохраняя его работоспособность, разумеется).
Написав быстренько запутанно и сложно - получите труднопонимаемый и сложноотлаживаемый код...
Впрочем, я это пишу не для того, чтобы как-то Вас обидеть, а для того, чтобы Вы росли профессионально!

3. RadioButton2 установлен по умолчанию как True, после начала обработки изменение параметров RadioButton блокируется.

В данном случае согласен, похоже, что это не влияет на возникающую ошибку... но вообще не согласен. Писать надо так, чтобы малейшее изменение, которые будут сделаны в компонентах (выключение True, например, или добавление ещё одного radiobutton) не приводили к полному краху алгоритма!

5. Так я же его даже открыть не успеваю, или я не так Вас понял?

Так я же Ваш проект не отлаживал! Откуда я знаю, успеваете Вы файл открыть или нет!?
Не исключаю, что первое нажатие на Button3 проходит "молча"... Повторное нажатие — выдаёт Вам ошибку...

А ещё есть такая замечательная штука - DEBUGGING (ОТЛАДКА). поставьте точку останова в начале процедуры и пройдитесь пошагово...

p.s. сделайте маленький тестовый проект, запакуйте его исходники в архив и выложите сюда, на форум.
Вам легче будет помочь..

Удачи.

[Flame_of_Death]

Тема закрыта, переписал код заново, проблема решилась)