我用OpenPictureDialog选中一个文件夹中的所有文件,但得到的却只有一个文件,怎么得到所有的文件名呢?

解决方案 »

  1.   

    文件名:procedure TForm1.Button1Click(Sender: TObject);
    var
      I: Integer;
    begin
      if not(OpenPictureDialog1.Execute) then Exit;
      for I := 0 to OpenPictureDialog1.Files.Count - 1 do
        ShowMessage(OpenPictureDialog1.Files.Strings[I]);
    end;
      

  2.   

    包含了路径,分离文件名用ExtractFileNameprocedure TForm1.Button1Click(Sender: TObject);
    var
      I: Integer;
    begin
      if not(OpenPictureDialog1.Execute) then Exit;
      for I := 0 to OpenPictureDialog1.Files.Count - 1 do
        ShowMessage(ExtractFileName(OpenPictureDialog1.Files.Strings[I]));
    end;
      

  3.   

    修改日期:procedure TForm1.Button1Click(Sender: TObject);
    var
      I: Integer;
    begin
      if not(OpenPictureDialog1.Execute) then Exit;
      for I := 0 to OpenPictureDialog1.Files.Count - 1 do
        ShowMessage(DateToStr(FileDateToDateTime(FileAge(ExtractFileName(OpenPictureDialog1.Files.Strings[I])))));
    end;