关于tlistView 的操作示例

一。

 

 //从ini加载权限列表
  ImportPostList:=TStringList.Create;
  try
    ImportPostList.LoadFromFile(DBModule.exeFilepath+'ini\QuanX.ini');
    if ImportPostList.Count>0 then
    begin
      for  i:=0 to ImportPostList.Count-1 do
      begin
        TempStr:=ImportPostList.Strings[i];
        TempList:=TStringList.Create;
        try
         TempList:=FPNSplit(TempStr,#61); //如果是类似name=value的形式就不用分隔，直接用names,values属性得到相关值
           if TempList.Count>=2 then
           begin
              with lvXuanKXM.Items.Add do begin
              Caption:=IntToStr(lvXuanKXM.Items.Count);
              SubItems.Add(TempList.Strings[0]);
              SubItems.Add(TempList.Strings[1]);
              end;
           end;
        finally
          TempList.Free;
        end;
      end;
    end;
  finally
    ImportPostList.Free;
  end;

二。TListView的names,values属性

ini文件：

1=登记考生
2=权限管理
3=登记补考
4=系统参数管理

//加载管理员类型和权限 从ini文件和数据库
  ImportPostList:=TStringList.Create;
  try
    ImportPostList.LoadFromFile(DBModule.exeFilepath+'ini\QuanX.ini');
    if ImportPostList.Count>0 then
    begin
      while not qryQuanX.Eof do   //循环数据库
      begin
        with lvGuanLYQX.Items.Add do
        begin
          Caption:=IntToStr(lvGuanLYQX.Items.Count);
          SubItems.Add(qryQuanX.Fields[1].Value);
          SubItems.Add(string(qryQuanX.Fields[2].Value));
            for I := 0 to ImportPostList.Count - 1 do
            begin
              if  ImportPostList.Names[i]=string(qryQuanX.Fields[2].Value) then
              begin
                SubItems.Add(ImportPostList.Values[ImportPostList.Names[i]]);
              end;
            end;
        end;
        qryQuanX.Next;
      end;
    end;
  finally
    ImportPostList.Free;
  end;