Delphi ListView1 加载文件列表用法

本文整理自网络，侵删。

 
//OpenDialog1 设置位文件多选  GetFileSize 本站可以搜索到
var
  i, numExisting, fileSize, fileHandle: Cardinal;
  item: TListItem;
  filePath: string;
begin
  if OpenDialog1.Execute then
  begin
    numExisting := ListView1.Items.Count;
    for i := 0 to OpenDialog1.Files.Count - 1 do
    begin
      filePath := OpenDialog1.Files[i];
      fileHandle := FileOpen(filePath, fmOpenRead);
      fileSize := GetFileSize(fileHandle, nil);
      FileClose(fileHandle);
      item := ListView1.Items.Add;
      item.Caption := IntToStr(i + numExisting + 1);
      item.SubItems.Add(filePath);
      item.SubItems.Append(IntToStr(fileSize));
    end;
  end;


//ListView1 移除选中的文件
var
  i, j, k: Cardinal;
  removalIndices: array of Cardinal;
begin
  if ListView1.SelCount > 0 then
  begin
    j := 0;
    k := 1;
    SetLength(removalIndices, ListView1.SelCount);
    for i := 0 to ListView1.Items.Count - 1 do
    begin
      if ListView1.Items[i].Selected then
      begin
        removalIndices[j] := i;
        Inc(j);
      end
      else
      begin
        ListView1.Items[i].Caption := IntToStr(k);
        Inc(k);
      end;  
    end;

    for i := Length(removalIndices) - 1 downto 0  do
      ListView1.Items[removalIndices[i]].Delete;
  end;

// ListView1 清空
ListView1.Clear;

//
 for i := 0 to ListView1.Items.Count - 1 do
  begin
   ListView1.Items[i].SubItems[1]
  end;

//收藏
for i := 1 to ListView1.Items.Count - 1 do
  begin
     ListView1.Items[i].SubItems[0]
 end;
 

相关阅读 >>

Delphi xe5实现的一个阳历转换成阴历的代码

Delphi多线程图片转换类实现

tstringlist 常用操作

Delphi中组件panel、splitter、groupbox、按钮组件（checkbox...）、计时器、滚动条、多选卡

Delphi cxgrid中回车键光标移到下列

Delphi 十进制转十六进制

Delphi 注入不用writeprocessmemory 函数

Delphi判断字符串是否是数字、字母、大小写字母

Delphi createmutex建立互斥对象，并且给互斥对象起一个唯一的名字

Delphi is1251char

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi ListView1 加载文件列表用法