Архив форумов ЦИТФорума

[Виноградов Алексей]

Господа хорошие, я весь уже извелся. В Delphi_5 при исполнении метода Execute компонента TOpenDialog система раз из трех мертво виснет. Я делаю так: помещаю компонент на форму, потом в обработчике нажатия кнопки
устанавливаю его свойства - Filter и InitialDir,
после чего вызываю метод EXECUTE. После этого машина виснет. Окно выбора файла на экране не появляется. У меня из-за этого стоит важный проект.
Кто наблюдал такой глюк? У меня стоит Win98 русская версия ?

[Лобсанг]

Ты бы сразу скопировал код, но в общем случае это должно выглядеть так:
OpenDialog1.Filter :='текстовые файлы|*.txt|';
if OpenDialog1.execute and FileExists(OpenDialog1.FileName)
then
begin
...
...
end;
CloseFile(f)