814123
2018-03-19 14:14
采纳率: 50%
浏览 1.5k
已采纳

delphi listview添加图标的问题?

准备了2个图标在Listview里显示,判断条件来添加不同的图标。
str1,str2都是Tstringlist。
For循环对比str1与str2的内容,如果相同listview.item.add.imageindex := 0;
否则listview.item.add.imageindex := 1;
搞了一个晚上了没有解决,来这里求助老师?

我的代码

  for i := 0 to sList.Count - 1 do begin
    if sList[i] = '' then begin
      ListView1.Items.Add.Caption := ''//添加空行
    end else begin
      for j := 0 to MainForm.PopupMenu1.Items.Count - 1 do begin
        if MainForm.PopupMenu1.Items[j].Caption = sList[i] then begin
          with ListView1.Items.Add do begin
            Caption := sList[i];
            ImageIndex := 1;
          end;
          Break;
        end else begin
          with ListView1.Items.Add do begin
            Caption := sList[i];
            ImageIndex := 0;
          end;
        end;
      end;
    end;
  end; 
  • 写回答
  • 好问题 提建议
  • 追加酬金
  • 关注问题
  • 邀请回答

2条回答 默认 最新

相关推荐 更多相似问题