Форум: "Начинающим";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];

Вниз

Процедура открытия диалога выбора файла...   Найти похожие ветки 

← →
Max.66RUS ©   (2006-10-15 07:36) [0]

Подскажите пожалуйста процедуру открытия диалога выбора любого файла по нажатию на кнопку, и после того как этот файл выбран, путь к нему должен отображаться в Edit1.Text. Заранее спасибо.

---

← →
Loginov Dmitry ©   (2006-10-15 08:37) [1]

uses Dialogs;

procedure OpenFile: string;
begin
 Result := "";
 with TOpenDialog.Create(nil) do
 try
   if Execute then
     Result := ExtractFilePath(FileName);
 finally
   Free;
 end;
end;

procedure TForm1.Button1Click();
begin
 Edit1.Text := OpenFile;
end;

---

← →
EvS ©   (2006-10-15 10:45) [2]

> procedure OpenFile: string;

function OpenFile:string;

---

← →
Max.66RUS ©   (2006-10-15 15:48) [3]

Всем большое спасибо.

---

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

Форум: "Начинающим";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.04 c