D dxiaoliang Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-28 #3 OpenDialog 控件就可以阿 具体的代码 procedure TForm1.Button1Click(Sender: TObject); var str:string; begin if OpenDialog1.Execute then begin str:=OpenDialog1.FileName; end; end;
OpenDialog 控件就可以阿 具体的代码 procedure TForm1.Button1Click(Sender: TObject); var str:string; begin if OpenDialog1.Execute then begin str:=OpenDialog1.FileName; end; end;
I icelovey Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-28 #4 if OpenDialog1.Execute then begin FileName:=OpenDialog1.FileName; end;
B bbscom Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-28 #5 在IDE的Dialogs裡選擇OpenDialog控件 if OpenDialog1.Execute then ShowMessage(OpenDialog1.FileName);
F foam Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-01 #10 :=ExtractFilePath(OpenDialog1.FileName);
