本文整理自网络，侵删。
格式
只显示exe文件 exe文件(*.exe)|*.exe
exe文件(*.exe)显示在文件类型里，中间用|隔开，|后面代表过滤exe以外的其他类型文件
opendialog1.filter:='所有文件(*.*)|*.*';
opendialog1.filter:='文本文件(*.txt)|*.txt';
opendialog1.filter:='文本文件(*.txt)|*.txt|FLASH文件(*.swf)|*.swf';
如果显示2个以上的类型，中间用;隔开，如：
支持文件类型(*.swf;*.jpg)|*.swf;*.jpg
如何指定 OpenDialog1的默认打开目录或文件？
指定它的initialDirs属性 TOpenDialog.InitialDir := '指定目录路径 ';
OpenDialog1.FileName设置默认文件
如何在OpenDialog中打开多个文件，并使用（读取文件名）？
ofAllowMultiSelect := True;
选择options属性，将其中的ofallowmultiselect属性舍为true
使用时，可以使用一个循环，反复读取文件名
OpenDialog的Options\ofAllowMultiSelect属性设为true，表示可以选择多个文件。
var
tmp:TStrings;
begin
if opendialog1.Execute then
tmp:=opendialog1.FileName; //获得所有文件名
memo1.Lines :=tmp; //将所有文件名放到memo1显示
memo2.Text :=tmp[0]; //取第一个文件名放到memo2显示, 依次类推
edit1.Text :=IntToStr(tmp.Count ); //显示一共选了多少个文件
end;
我想你最重要要做的是如何取得每个单个的文件名，简单表示如下：
var
files:TStrings;
i:integer;
begin
if opendialog1.Execute then
begin
files:=opendialog1.Files ; //获得所有文件名
for i :=0 to files.count do
listbox1.items.add(files[i])//list[i]就是存放所选文件的单个文件名
end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
