FileListBox1问题。

Question

写个函数吧
  function getFileName(f : string);
  var i : integer;
      s : string;
  begin
    s := '';
    for i:= length(f) downto 1 do
    begin
      if f[i]<>'\' then s:=s+f[i]
      else break;
    end;
    result := s;
  end;

Answer 1

以上方法太多余,用ExtractfileName()即可.

Answer 2

用Delphi标准函数：
function ExtractFileName(const FileName: string): string;

Answer 3

fname:=filelistbox1.items[filelistbox1.itemindex];