怎样得到OpenPictureDialog所选中文件的路径

Question

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
   showmessage(ExtractFileDir(OpenPictureDialog1.FileName));
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
if Openpicturedialog1.Execute then
  button1.Caption:=OpenpictureDialog1.FileName;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
if Openpicturedialog1.Execute then
  Showmessage(ExtractFileDir(OpenpictureDialog1.FileName));
end; 

Answer 3

function ExtractFileDir(const FileName: string): string;DescriptionThe resulting string is a directory name suitable for passing to the CreateDir, GetCurrentDir, RemoveDir, and SetCurrentDir functions. This string is empty if FileName contains no drive and directory parts.

Answer 4

ExtractFileDir(OpenPictureDialog.filename);

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
edit1.Text :=extractfiledir(opendialog1.FileName );//文件路径
edit2.Text :=extractfilename(opendialog1.FileName );//文件名
end;