在TListView上列出目录上的文件

Question

我正在构建一个需要在Form_Create上的Form_Create ，填充一个名为FileList的TListView ，我要填充的目录是编译程序是+ \\Files ，因为我从未使用TListView我想知道如何做到这一点？

Answer 1

您的问题有多个部分。 我会在这里提供一个概述 。 如果您需要任何特定步骤的帮助，请发布更具体的后续问题。

1. 确定“编译程序所在的位置”是指什么。

   要获取EXE文件的完整路径，请调用ParamStr(0) 。 要从该字符串中删除EXE文件名，因此只有目录部分，请调用ExtractFilePath 。 确保以反斜杠（ IncludeTrailingPathDelimiter ）结束，然后附加“Files”目录。

2. 获取文件列表。

   使用FindFirst和FindNext创建一个查看所有文件的循环。 名称将包括“。” 和“..”相对目录名称，因此您可能希望排除它们。 请注意，文件不按任何特定顺序枚举。 例如，如果您需要按字母顺序排序，则需要自己进行排序。 （在测试中，它们可能看起来按字母顺序排列，但并非总是如此。）

    var Rec: TSearchRec; begin if FindFirst(path + '\\*', faAnyFile, Rec) = 0 then try repeat if (Rec.Name = '.') or (Rec.Name = '..') then continue; if (Rec.Attr and faVolumeID) = faVolumeID then continue; // nothing useful to do with volume IDs if (Rec.Attr and faHidden) = faHidden then continue; // honor the OS "hidden" setting if (Rec.Attr and faDirectory) = faDirectory then ; // This is a directory. Might want to do something special. DoSomethingWithFile(Rec.Name); until FindNext(Rec) <> 0; finally SysUtils.FindClose(Rec); end; end; 

3. 将节点添加到控件以表示文件。

   您可能希望在我上面提到的假设的DoSomethingWithFile函数中执行此操作。 使用列表视图的Items属性可以对项目执行操作，例如添加新项目。

    var Item: TListItem; begin Item := ListView.Items.Add; Item.Caption := FileName; end; 

   TListItem具有其他属性; 查看文档以获取详细信息。 如果您在“报告”模式下显示列表视图，则SubItems属性很有用，其中单个节点可以有多个列。

4. 将图像与项目相关联。

   列表视图中的节点图像来自关联的图像列表， LargeImages和SmallImages 。 它们引用表单上的一个或多个TImageList组件。 将图标图像放在那里，然后将项目的ImageIndex属性分配给相应的数字。

根据您希望程序的精确程度，您可能希望使用Delphi的TShellListView控件而不是自己完成上述所有工作。

Answer 2

如果您在表单上放置一个带有两个图像的TImagelist（一个前置文件，另一个用于目录），然后将TImagelist分配给TListviews LargeImages属性，则可以使用以下代码。

procedure TForm2.Button1Click(Sender: TObject);
    var li:TListItem;
    SR: TSearchRec;
begin
    FileList.Items.BeginUpdate;
    try
        FileList.Items.Clear;

        FindFirst(ExtractFilePath(Application.ExeName) +'*.*', faAnyFile, SR);
        try
            repeat
                li :=  FileList.Items.Add;
                li.Caption := SR.Name;

                if ((SR.Attr and faDirectory) <> 0)  then li.ImageIndex := 1
                else li.ImageIndex := 0;

            until (FindNext(SR) <> 0);
        finally
            FindClose(SR);
        end;
    finally
        FileList.Items.EndUpdate;
    end;
end;

然后，您可以通过向TImageList添加不同的图像来构建不同的文件类型，并使用ExtractFileExt（SR.Name）来获取文件扩展名

if ((SR.Attr and faDirectory) <> 0)  then li.ImageIndex := 1
else if lowercase(ExtractFileExt(SR.Name)) = '.png' then li.ImageIndex := 2
else if lowercase(ExtractFileExt(SR.Name)) = '.pdf' then li.ImageIndex := 3
else li.ImageIndex := 0;

Answer 3

绘制行时，您需要显示图像。

这应该给你一个想法： http ： //www.delphidabbler.com/articles？ article = 16 http://delphi.about.com/od/delphitips2008/qt/lv_checkbox_bmp.htm

唯一的区别是你会画一个图标/图像。 在这里，您将学习如何在网格中执行此操作： http ： //delphi.about.com/library/weekly/aa032205a.htm因此，您可以从中获得这个想法。