Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2021, 22:38   #1
Kronos913
Форумчанин
 
Регистрация: 10.02.2021
Сообщений: 603
По умолчанию Проблема с OpenDialog...

Код:
procedure TForm3.Button14Click(Sender: TObject);
begin
 opendialog2.FileName:=Dir+'\*.png';
 If OpenDialog2.Execute then begin
   {какой-то код}
 end;
end;
Dir - глобальная переменная типа string

При исполнении такого когда не открывается вызывать окно opendialog

При чем, любую другую переменную подставить вместо Dir - все работает на ура. Другой string, параметры label, все что угодно, даже opendialog2.FileName:=''

А вот с этой переменной Dir возникает проблема, что с ней не пытайся сделать. Пробовал и убирать кусок строки после нее
Kronos913 вне форума Ответить с цитированием
Старый 06.05.2021, 13:07   #2
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

В Delphi 10.1 всё открывается
Код:
unit Unit17;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm17 = class(TForm)
    Button1: TButton;
    OpenDialog2: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Dir: String;
  end;

var
  Form17: TForm17;

implementation

{$R *.dfm}

procedure TForm17.Button1Click(Sender: TObject);
begin
 opendialog2.FileName:=Dir+'\*.png';
 If OpenDialog2.Execute then begin
   {какой-то код}
 end;
end;

procedure TForm17.FormCreate(Sender: TObject);
begin
  Dir := 'C:';
end;

end.
Shouldercannon вне форума Ответить с цитированием
Старый 06.05.2021, 14:07   #3
Kronos913
Форумчанин
 
Регистрация: 10.02.2021
Сообщений: 603
По умолчанию

Я только что начал искать за пределами выделенного фрагмента и нашел в чем проблема

В имени возникало два '\' подряд
Kronos913 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с opendialog Ate1st1984 Общие вопросы Delphi 24 19.03.2013 11:08
OpenDialog проблема redenemy C++ Builder 5 20.05.2012 00:45
Проблема с OpenDialog!!!! Екатерина_21 C++ Builder 3 09.10.2011 15:12
Проблема с иконкой в трее и OpenDialog Dop Общие вопросы Delphi 2 05.08.2011 14:48
Проблема OpenDialog и ifstream yuriyua Помощь студентам 1 14.10.2009 19:20