Скачать: CL | DM;

Выбор пути!   Найти похожие ветки 

← →
kwotz ©   (2007-01-04 17:07) [0]

Есть Edit и Button. Как сделать так, чтобы при нажатии на кнопку открывалось окно обзора, через которое можно выбрать каталог, полный путь до которого будет помещен в Edit?

---

← →
mfender ©   (2007-01-04 17:15) [1]


procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
   Edit1.Text := ExtractFilePath(OpenDialog1.FileName);
end;


---

← →
begin...end ©   (2007-01-04 17:21) [2]

uses FileCtrl;

procedure TMyForm.ButtonClick(Sender: TObject);
var
 Dir: string;
begin
 if SelectDirectory("Выберите папку:", "C:\", Dir) then
   Edit.Text := Dir
end

---

← →
Tifon ©   (2007-01-04 17:29) [3]

то mfender
а почему не просто
...
begin
OpenDialog1.Execute;
Edit1.Text := ExtractFilePath(OpenDialog1.FileName);
end;

Зачем там еще if?

---

← →
Джо ©   (2007-01-04 17:31) [4]

> [3] Tifon ©   (04.01.07 17:29)
> Зачем там еще if?

Затем, что пользователь может нажать кнопку «Отмена» или Escape, например.

---

← →
Tifon ©   (2007-01-04 17:35) [5]

ну и что, наоборот, программа показалаб что впоследний раз никакой файл не был выбран, хотя все зависит от надобности.

---

← →
Джо ©   (2007-01-04 17:44) [6]

>
>
> [5] Tifon ©   (04.01.07 17:35)
> ну и что, наоборот, программа показалаб что впоследний раз
> никакой файл не был выбран, хотя все зависит от надобности.

Вот ты представь, выбираешь ты в Ворде пункт меню Файл/Открыть. Долго чего-то ищешь там, не находишь, чего тебе нужно, нажимаешь Esc, а Ворд открывает совершенно не нужный тебе файл. Нравится?

---

← →
Tifon ©   (2007-01-04 18:04) [7]

но ведь нам просто нужно было узнать имя файла, если необходимо его потом открывать то твой способ на все 100% правильный, просто если путь файла нам нужен как string, т.е. строка и небольше, тогда и мой згодиться, п если именно для открытия файла тогда конечно твой.

---

← →
Virgo_Style ©   (2007-01-04 18:08) [8]

Tifon ©   (04.01.07 18:04) [7]
какая разница, откроется ненужный файл или каталог

---

← →
Джо ©   (2007-01-04 18:10) [9]

> просто если путь файла нам нужен как string, т.е. строка
> и небольше, тогда и мой згодиться

А OpenDialog никаких файлов и так не открывает, он именно возвращает имя файла как string. В твоем случае — возможно неверного файла.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c