Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Выбор пути! [D7, XP]

kwotz © (2007-01-04 17:07:00)
Есть Edit и Button. Как сделать так, чтобы при нажатии на кнопку открывалось окно обзора, через которое можно выбрать каталог, полный путь до которого будет помещен в Edit?

Джо (2007-01-04 18:10:00) [1]
> просто если путь файла нам нужен как string, т.е. строка
> и небольше, тогда и мой згодиться

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

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

Tifon (2007-01-04 18:04:00) [3]
но ведь нам просто нужно было узнать имя файла, если необходимо его потом открывать то твой способ на все 100% правильный, просто если путь файла нам нужен как string, т.е. строка и небольше, тогда и мой згодиться, п если именно для открытия файла тогда конечно твой.

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

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

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

Джо (2007-01-04 17:31:00) [6]
> [3] Tifon © (04.01.07 17:29)
> Зачем там еще if?

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

Tifon (2007-01-04 17:29:00) [7]
то mfender
а почему не просто
...
begin
OpenDialog1.Execute;
Edit1.Text := ExtractFilePath(OpenDialog1.FileName);
end;

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

begin...end (2007-01-04 17:21:00) [8]
uses FileCtrl;

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

mfender (2007-01-04 17:15:00) [9]
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Edit1.Text := ExtractFilePath(OpenDialog1.FileName); end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »