Delphi Listveiw 사용 설명
3652 단어 Delphi
1
2
3
4
5
6
7
8
var 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
8
var 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
27
var 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 ;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
[Delphi] TStringBuilder그리고 꼭 사용해야만 할까? 그림처럼 Heap 영역에 "Hello" 공간을 생성하고 포인팅을 한다. "Hello World" 공간을 새로 생성한 후 포인팅을 하게 된다. 결국 "Hello" 라는 String 객체가 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
