例如 在listview控件中显示 abc.txt
dasd.jpg
dwd.txt
delphi 中怎么用ListView控件和 OPENdialog 控件 使打开的文件夹下的 文件名在listVIEW中显示 求具体代码
答案:3 悬赏:30 手机版
解决时间 2021-03-13 21:19
- 提问者网友：两耳就是菩提
- 2021-03-13 11:21
最佳答案
- 五星知识达人网友：人類模型
- 2021-03-13 12:33
工具，选项，安全性，个人信息选项下面，把勾选去掉 。如果是2007的话就点击工作簿上的office徽标-Excel选项-信任中心-个人信息选项，文档特定设置下的“保存时从文件属性中删除个人信息（R)”前面的“√”取消！
全部回答
- 1楼网友：煞尾
- 2021-03-13 15:05
一.常用属性
1.defaultext特性：
当用户未输入文件扩展名时它用于指明默认的扩展名。
2.filename特性：
它为string型用于记录最后一个被选中的文件的全路径名。默认为空。
3.filter（过滤器）特性：
它用于设置打开对话框中显示的文件类型，实在打开的对话框中仅显示与该特性所列的相匹配的文件。在程序设计阶段用户可以在对象观察器中，单击filter特性值框中的“...”按钮，将弹出filter editor 对话框，可以在此设置预显示文件的扩展名，既设置过滤器。用户还可以在程序代码中动态的设置该特性值。例如：
filter：='delphi uint files|*.pas;*.dpr';
4.filterindex特性：
该特性为integer类型，在设置了多个过滤器时，用于确定在打开对话框中文件类型下拉列表中初始显示的过滤器的序号，其默认值为1。
5.initildir特性：
用它指明对话框的默认目录。
6.title特性：
用它指明opendialog 组件标题栏中的字符串，默认值为“打开”。
等
二、常用方法
execute方法：
起作用是打开对话框，用户单击“打开”或ok按钮，该方法返回值为true；用户单击“取消”或cancel按钮，该方法返回值为false。
通常用程序代码打开文件的结构如下：
if opendialog1.execute then
degin
//打开文件操作
end;
ok了，这些会就够了。
- 2楼网友：玩世
- 2021-03-13 14:03
function ListFiles(Dir: String):TStrings; //自定义函数，用于取得指定目录下的所有文件名列表
var FSearchRec: TSearchRec;
FindResult: Integer;
begin
if Dir[length(Dir)] <>'\' then Dir:=Dir+'\';
result :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*',faAnyFile+faDirectory,FSearchRec);
try
while FindResult = 0 do
begin
result.Add(LowerCase(FSearchRec.Name));
FindResult:=FindNext(FSearchRec);
end;
finally
FindClose(FSearchRec);
end;
//FileList.Sorted:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
lujing:string;
listname:Tstrings;
i:integer;
begin
memo1.Clear;
listname:=ListFiles(edit1.text);
for i := 0 to (listname.Count-1) do
begin
memo1.lines.Add(listname[i]);
end;
listname.free;
end;
end.
自己改一下吧你 差不多就这样 dir获取的时候用ediOpenDialog1.filename 再把文件名去掉 一般不用opendialog用windows api
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯