OpenDialog的小问题

Question

我打开文件：F:\jj\oo\w.doc
我想取得w.doc不知在opendialog中怎样实现?

Answer 1

if not dlgOpen.Execute then 
Exit; 
FileName := dlgOpen.FileName;

Answer 2

if opendialog1.Execute then
    showmessage(ExtractFileName(opendialog1.FileName))

Answer 3

我不要filename
因为filename是：F:\jj\oo\w.doc
而我只想要文件的名称w.doc

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
OpenDialog1.Execute;
s:=OpenDialog1.FileName ;
s:= extractfilename(s);showmessage(s);
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
OpenDialog1.Execute;
s:=OpenDialog1.FileName ;
s:= extractfilename(s);showmessage(s);
end;

Answer 6

var
 s,s2:string;
 i:integer;
begin  s:=opendialog1.filename;
  for i:=length(s) downto 1 do
   begin
     if s[i] <>'\' then s2:=s[i]+s2
      else
       break;
   end;

Answer 7

你可以用函数ExtractFileName(OpenDialog.FileName),这个简单了吧。

Answer 8

opendialog.filter := 'word文档|*.doc';
opendialog.defaultext := '*.doc';
if opendialog.execute then
begin
  filename := extractfilename(opendialog.filename);
  filepath := extractfilepath(opendialog.filename);
end;
如果可多选
if opendialog.execute then
begin
  for i := 0 to opendialog.files.count - 1 do
  begin
    filename[i] := extractfilename(opendialog.Files.Strings[i]);
    filepath[i] := extractfilepath(opendialog.Files.Strings[i]);
  end;
end;