社区
Delphi
帖子详情
××××opendialog中多选,怎么得到多选的文件信息×××××
superhjw
2003-10-20 04:18:27
HELP
...全文
107
8
打赏
收藏
××××opendialog中多选,怎么得到多选的文件信息×××××
HELP
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
onebody
2004-03-14
打赏
举报
回复
UP
guolvguolv
2003-10-20
打赏
举报
回复
找到后可用api函数 GetFileSize(HANDLE hFile, LPDWORD lpdwFileSizeHigh)
GetFileTime(HANDLE hFile, LPFILETIME lpftCreation, LPFILETIME lpftLastAccess, LPFILETIME lpftLastWrite)
superhjw
2003-10-20
打赏
举报
回复
好,再开。
pianzhouzi
2003-10-20
打赏
举报
回复
分明显不够嘛
CDSoftwareWj
2003-10-20
打赏
举报
回复
你找TSearchRec的资料
superhjw
2003-10-20
打赏
举报
回复
谢谢,如何得到文件的类型大小和修改时间。。。。。
分不购可以加
CDSoftwareWj
2003-10-20
打赏
举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
if OpenDialog1.Execute then
begin
ListBox1.Clear;
for i := 0 to OpenDialog1.Files.Count - 1 do
ListBox1.Items.Add(OpenDialog1.Files[i]);
end;
end;
Maple119
2003-10-20
打赏
举报
回复
Var
I: Integer;
sFile: String;
Begin
For I:=0 To OpenDialog1.Files.Count-1 Do
Begin
sFile:= OpenDialog1.Files.String[I];
...
End;
End;
让
open
dialog
可以
多选
文件
设置ofallowmultiselect为true就可以
多选
了;
open
picture
dialog
1.Files.Text中拿到,把它showmessage出来。
Open
Dialog
文件
多选
procedure TForm1.
Open
FileListClick(Sender: TObject); var
open
Dialog
: T
Open
Dialog
; I: Integer; begin
open
Dialog
:= T
Open
Dialog
.Create(Self);
open
Dialog
.Filter := 'Excel
文件
|*.xlsx;*.xls';...
open
dialog
控件的
多选
操作
设置
Open
Dialog
的Option属性,置ofAllowMultiSelect属性为True,然后就可以一次选择多个
文件
了,返回Files,是一个TStrings类型,通过它就可以取得所有选择的
文件
了。 我是问如何把
多选
的
文件
加到LISTBOX中去哦var i :integer; begin for i := 0 to
Delphi :
Open
dialog
文件
过滤类型,
文件
多选
, 使用多
文件
格式 只显示exe
文件
exe
文件
(*.exe)|*.exe exe
文件
(*.exe)显示在
文件
类型里,中间用|隔开,|后面代表过滤exe以外的其他类型
文件
open
dialog
1.filter:='所有
文件
(*.*)|*.*';
open
dialog
1.filter:='文本
文件
(*.txt)|*.txt';
open
dialog
1.filter:='文本
文件
(*.txt)
Open
File
Dialog
多选
多个
文件
cControlex.c
Open
Dialog
.Multiselect = true;//
多选
多个
文件
cControlex.c
Open
Dialog
.AddExtension = true;//扩展名 cControlex.c
Open
Dialog
.DefaultExt = ".spc";//默认后缀 cControlex.
Delphi
5,379
社区成员
262,723
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章