选中filelistbox里面的文件名:
ShowMessage(FileListBox1.Items[FileListBox1.itemindex]);
可以读取文件名,与listbox的用法一致
ShowMessage(FileListBox1.Items[FileListBox1.itemindex]);
可以读取文件名,与listbox的用法一致
解决方案 »
- 现在盗版越来越难找了。求addin express 2008 2009或 2010 for vcl (Delphi)
- 新delphi群13771002..扩招各路高手..来者有分.
- 调查(不容错过哦):Delphi是否可以做基于Soap/webservice的大型应用(110分!)
- 两个一样的DBGrid,如何实现往一个DBGrid里面填写数据,另外一个DBGrid自动显示?
- 请教大家!信史服务的事情!
- 有用过themeengine控件的进来看看
- 用InstallShield 5.1 Professional Edition打包?
- 如何将FOXPRO2.6写的程序可以放在NT上运行!高高高份
- 不用dbedit,如何写代码,将edit文本框中内容存库?
- 放了一天了的一个参数的小问题都没人回答,请大家帮忙,(请帮忙Up).谢谢
- 有关于ADOQurey组件的问题,哎,花了我好多时间啦! 帮忙!
- 如何在函数里面传字符串数组
var F: File;
i: Integer;
begin
for i := 0 to (FileListBox1.Items.Count - 1) do begin
try
if FileListBox1.Selected[i] then
begin
if not FileExists(FileListBox1.Items.Strings[i]) then begin
MessageDlg('File: ' + FileListBox1.Items.Strings[i] +
' not found', mtError, [mbOk], 0);
Continue;
end;
AssignFile(F, FileListBox1.Items.Strings[i]); Reset(F, 1);
ListBox1.Items.Add(IntToStr(FileSize(F)));
CloseFile(F);
end;
finally
{ do something here }
end;
end;
end;