0

我正在使用 Delphi 制作简单的文件管理器。我ListView用来显示文件夹和文件，我使用FileList（它不可见）从某个目录获取文件和文件夹名称。

问题是我不想在 ListView 中包含这个[.]元素（它是当前目录的符号，不知道为什么 Delphi 会FileList显示它）。但是，当我试图忽略它时（这里是代码）

procedure TfolderFrame.ShowFiles;
var
  i: Integer;
  size: int64;
  fileName, extension: string;
begin
  edt1.Text := CurrentFullPath;
  lvListView.Clear;
  fllstFiles.Directory := CurrentFullPath;

  For i := 0 To fllstFiles.Items.Count-1 Do begin
    fileName := fllstFiles.Items.Strings[i];
   extension := UpperCase(ExtractFileExt(fileName));
    size := DSiFileSize(fileName);
    Delete(extension, 1, 1);

    if (fileName <> '[.]') then begin //error apperas at this line!

      if (not(isDirectory(fileName))) then begin
        lvListView.Items.Add.Caption := fileName;
        lvListView.Items[i].SubItems.Add(IntToStr(size));
        lvListView.Items[i].SubItems.Add(extension);
        lvListView.Items[i].ImageIndex := GetItemImage(fileName, extension);
      end
      else begin
        Delete(fileName, 1, 1);
        Delete(fileName, Length(fileName), 1);
        lvListView.Items.Add.Caption := fileName;
        lvListView.Items[i].ImageIndex := GetItemImage(fileName, extension);
      end;
    end;
  end;
end;

出现错误

模块 file_manager.exe 中地址 004634DF 的访问冲突。读取地址 00000010

我做错了什么？

4

1 回答 1

6

您不会在 for 循环的每次迭代中添加一个项目。当你跳过 for 时，你应该在下一次迭代中[.]得到一个 AV for ，因为你刚刚添加的项目的索引是。要解决此问题，请保留对您添加的项目的引用并对其进行处理。lvlistview.items[i]i-1

var
  ..
  Item: TListItem;
begin
  ..
        Item := lvListView.Items.Add;
        Item.Caption := fileName;
        Item.SubItems.Add(IntToStr(size));
        Item.SubItems.Add(extention);
        Item.ImageIndex := GetItemImage(fileName, extention);
      ..
于 2013-09-24T18:49:32.173 回答