怎样取得OpenDialog1中的选择的文件的绝对路径？

Question

怎样取得OpenDialog1中的选择的文件的绝对路径？谢谢。

Answer 1

用OpenDialog1.FileName 如：
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  application.MessageBox(pchar(OpenDialog1.FileName),'',mb_ok)
end;

Answer 2

if OpenDialog1.Execute then
begin
    FileDir := StrRScan(OpenDialog1.FileName,'\') ;
end ;

Answer 3

if OpenDialog1.Execute then
   Memo1.Text:=OpenDialog1.Files.GetText;

Answer 4

var
  curdir :string
if OpenDialog1.Execute then begin
    getdir(0,curdir);
    showmessage(curdir);
end;

Answer 5

ExtractFilePath(OpenDialog1.FileName);