03.05.2009, 19:32
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if OpenDialog1.Execute then s:=OpenDialog1.FileName;
end;
полный путь храниться в переменной s
Можете сделать так:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName;
end;
|
|
|