델파이의 목록 상자 검색 필터

Question

여기 목록 상자에서 필터를 검색하는 동안 문제가 발생했습니다. 실제로 TEdit 컨트롤의 텍스트와 관련된 모든 항목을 선택하고 싶습니다. 여러 항목이 일치하면 여러 항목을 선택해야합니다.

그런데 이미 multiselect 속성을 True로 선택했습니다.

procedure TForm1.Button3Click(Sender: TObject); 
var 
    I: Integer; 
begin 
    if OpenDialog1.Execute then 
    for I := 0 to OpenDialog1.Files.Count - 1 do 
     ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files.Strings[i])); 
end; 

검색 필터 코드 :

여기 내 코드입니다

procedure TForm1.Edit1Change(Sender: TObject); 
var 
    I: Integer; 
begin 
    for I := 0 to ListBox1.Items.Count - 1 do 
    ListBox1.Selected[i] := False; 

    for I := 0 to ListBox1.Items.Count - 1 do 
    if ListBox1.Items.Strings[i].Contains(Edit1.Text) then 
     ListBox1.Selected[i] := True; 
end; 

이 코드는 잘 작동하지만 난 경우를 무시하고 검색 할 수 없습니다 때 문제입니다. 검색은 대소 문자를 구분하므로 대소 문자를 구분하지 않아야합니다.

Answer 1

TLama가 게시 한 코드를 사용하여 문제가 해결되었습니다. 고마워. 여기

코드가 수정 될 수 있습니다 :

uses 
    System.StrUtils; 

procedure TForm1.Edit1Change(Sender: TObject); 
var 
    I: Integer; 
begin 
    ListBox1.Items.BeginUpdate; 
    try 
    for I := 0 to ListBox1.Items.Count - 1 do 
     ListBox1.Selected[I] := ContainsText(ListBox1.Items[I], Edit1.Text); 
    finally 
    ListBox1.Items.EndUpdate; 
    end; 
end;