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

← →
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;

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

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