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

//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;

推荐分享