Показать сообщение отдельно
  #1  
Старый 12.01.2020, 13:05
VolodinAS VolodinAS вне форума
Прохожий
 
Регистрация: 16.07.2017
Сообщения: 23
Версия Delphi: Delphi XE3
Репутация: 10
По умолчанию Ошибка при выборе Word-файла в диалоговом окне

Код:
procedure Tfrm_tmp.btn_browseClick(Sender: TObject);
var
  dlg: TOpenDialog;
begin
  dlg := TOpenDialog.Create(nil);
//  if fod_main.Execute(Handle) then
//  begin
//    ledit_path.Text := fod_main.FileName;
//  end;

  try
    dlg.InitialDir := APP_PATH;
    dlg.Filter := 'Word 2003|*.doc';
    if dlg.Execute(Handle) then
      ledit_path.Text := dlg.FileName;
  finally
    dlg.Free;
  end;
end;

Выбираю файл:
https://sun9-2.userapi.com/c857236/v...9xehfy5mFs.jpg

Через несколько секунд (не сразу) появляется ошибка:
https://sun9-19.userapi.com/c857236/...o3O7-m8Kdg.jpg

В чем может быть дело?
Ответить с цитированием