频道分类

Delphi FileOpenDialog1 多选加载大量文件,不受中文文件名影响

作者:admin 来源: 日期:2020/1/14 17:38:36 人气: 标签:

 

//OpenDialog1  多选模式加载大量包含中文名文件会出错。20200114 

//后来发现不是上面的问题,我经过2个小时的不断测试发现删除 .dproj 文件重新 打开 dpr 项目文件 ,最终正常。

var
  i : integer;
  str:string;
  tmp:TStringList;
begin
tmp:=TStringList.Create;

FileOpenDialog1.FileTypes.Add.DisplayName := 'All Files'; //所有文件
FileOpenDialog1.FileTypes.Add.FileMask := '*.txt';

  FileOpenDialog1.Options := FileOpenDialog1.Options + [fdoAllowMultiSelect];
  if FileOpenDialog1.Execute then
  begin
  MemoFileList.Text:=FileOpenDialog1.Files.Text;  //获得所有文件名
   GroupBox2.Caption:='文件列表数'+IntToStr(MemoFileList.Lines.Count);

  end;