Отправлено Виноградов Алексей 11 февраля 2002 г. 19:17

У меня большие проблемы - во всех моих проектах на разных машинах компоненты OpenDialog и SaveDialog мертво вешают систему (Win98, 95).
Делаю так, как в книгах пишут:

{Метод "EXECUTE" создает и показывает на экране диалоговое окно выбора файла.
Метод возвращает "TRUE", если диалог с пользователем был успешным}
if opendialog1.execute then begin
{Связать имя файла типа "Bin" с файловой переменной "Bin_File"}
assignfile(price_file, opendialog1.filename);

{Откроем BIN - файл только для чтения}
if fileexists(opendialog1.filename) = false then begin
beep;
showmessage ('Не удается открыть выбранный вами файл !');
exit;
end;
reset(price_file);
closefile(price_file);
end;

Так вот, два раза из трех все нормально, но один раз после вызова метода EXECUTE диалоговое окно компонента на экране не появляется и система зависает. Что делать? Может, компоненты битые (у меня пятый DELPHI) ?
Помогите, плиз. Срывается важный проект.
С уважением, Алексей

• Код нормальный. Конфликт либо с OS, либо битый Delphi. Но!... (+) — CDAlex   (12.02.2002 12:21, 180 байт)
  • Я специально сделал программу, где ничего, кроме этих строк, нет — Виноградов Алексей   (12.02.2002 15:34, пустое)
    • И еще - где стоит вызов метода Execute? — Sanders   (12.02.2002 15:59, пустое)
      • В обработчике ONCLICK одного из пунктов MainMenu — Виноградов Алексей   (12.02.2002 18:08, пустое)
    • Тогда изничтожь нещадно все, что касается FileExists. Бо эта проверка — Sanders   (12.02.2002 15:52, 330 байт)
• Попробуй отделить мух от котлет, т.е.(+) — Boris Barbaris   (12.02.2002 12:21, 191 байт)
• Могли бы и версию Delphi сказать :) — Elektronik   (12.02.2002 11:53, пустое)
  • Пятая версия — Виноградов Алексей   (12.02.2002 15:31, пустое)
    • Ну значит OS у вас кривая или понаделали ошибок в другом месте. У меня все без проблем. — Elektronik   (12.02.2002 15:39, пустое)
• По крайней мере, в приведенном фрагменте криминала нет. — Sanders   (12.02.2002 10:22, 211 байт)
• Ответ:пока на всякий случай сходи по ссылке, там очень много полезного — Сергей Тюнькин   (12.02.2002 08:06, пустое, ссылка)
• Проверь comdlg32.dll — Alexandr   (11.02.2002 20:31, 217 байт)
  • А вы мне свой на мыло киньте ! kovigor@yahoo.com — Виноградов Алексей   (12.02.2002 15:33, пустое)