Выбор пути!

← →
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, а Ворд открывает совершенно не нужный тебе файл. Нравится?

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

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

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

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