Delphi Listveiw 사용 설명

CheckBox 전체 선택 기능 포함
1
2
3
4
5
6
7
8var i: Integer ; begin   for  I :=  0  to  lstqq . Items . Count -  1  do     begin       lstqq . Items[i].Checked:= True ;     end ; end ;선택한 항목을 삭제하려면 다음과 같이 하십시오.
1
2
3
4
5
6
7
8var i: Integer ; begin   for  i :=lstqq . items . Count -  1  downto  0  do   begin     if  lstqq . Items[i].Checked  then  lstqq . Items . Delete(i);   end ; end ;Listview에서 텍스트로 데이터를 내보내려면 다음과 같이 하십시오.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27var    i, j:  integer ;    s:  string ;    temp,temp1:  string ; begin    temp :=  '' ;    for  I :=  0  to  Lstqq . Items . Count -  1  do    begin      for  j :=  0  to  lstqq . Items[i].SubItems . Count -  1  do      begin      temp1:=lstqq . Items . Item[i].Caption;      temp:=lstqq . Items . Item[i].SubItems . Strings[j];      s:=temp1+ ',' +temp;      AppendTxt(s, 'log.txt' )      end ;    end ; end ; procedure  TFrmMain . AppendTxt(Str, FileName:  String ); var    f:TextFile; begin    if  not  FileExists(FileName)  then  FileCreate( 'log.txt' );    AssignFile(f, FileName);  // 。    Append(f);      //    Writeln (f, Str);  // F    Closefile(f);    // end ;