树结点的问题

Question

现在需要将opendialog执行后的文件名添加到树结点，但不需要文件名的路径，譬如\he\hh.gif 但结点只需hh.gif 即可

Answer 1

var
   i:integer;
   str:string;
begin
   if opendialog.execute then
   begin
      str:=trim(opendialog.filename);
      for i:=length(str) downto 1 do
      begin
           if str[i] = '\' then break else continue;
      end;
      str := copy(str, length(str)-i+1,i);
      treeview1.add(nil, str);
   end;
end;

Answer 2

上面的treeview1.add(nil, str);
改为:
treeview1.items.add(nil,str);

Answer 3

DELPHI有解得文件名的函数，路径的函数

Answer 4

ExtractFileDir另一个应该是ExtractFileName了