Question

delphi 中怎么用ListView控件和 OPENdialog 控件 使打开的文件夹下的 文件名在listVIEW中显示 求具体代码

例如 在listview控件中显示 abc.txt
dasd.jpg
dwd.txt

Answer 1

工具，选项，安全性，个人信息选项下面，把勾选去掉 。如果是2007的话就点击工作簿上的office徽标-Excel选项-信任中心-个人信息选项，文档特定设置下的“保存时从文件属性中删除个人信息（R)”前面的“√”取消！

Answer 2

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

Answer 3

Opendialog控件无法打开目录!只能打开文件啊.