リストボックスで検索するには？

Question

リストボックスを検索し、検索された単語に等しいすべての単語を強調表示する方法が必要です。

誰かが私を助けることができますか？

Answer 1

このような意味ですか？

procedure TForm1.HighLight(aListbox: TListBox; aStr: string); 
var 
    I : integer; 
begin 
    aListbox.ClearSelection; 

    for I := 0 to aListbox.Items.Count-1 do 
    if aListbox.Items[I] = aStr then 
     aListbox.Selected[I] := true; 
end; 

あなたはこれが機能するためにtrueにリストボックスのMultiSelectプロパティを設定する必要があります。

Answer 2

あなたの問題は正確には指定されていません。あなたは検索のための助けが必要ですか？あなたは言葉を強調するのに助けが必要ですか？

検索するには、リストボックス内の特定のアイテム、またはすべてのアイテムの単語を探していますか？ アイテムを検索する場合は、TListBox.Items.IndexOf（）を使用できます。 単語を検索する場合は、TListBox.Items.TextのPos（）またはPosEx（）関数を使用してテキスト全体を検索できます。 TListBox.Itemsを使用してアイテムを反復処理することによって、すべてのアイテムに対してこれらの関数を使用できます。

強調表示する単語の場合、TListBox自体はテキストの強調表示を行いません。それが必要な場合は、カスタム描画する必要があります。 StyleプロパティをlbOwnerDrawFixedに設定し、OnDrawItemイベントのカスタム描画コードを記述します。

Answer 3

あなたがリストボックスで高速検索を実行し、類似したアイテムや、正確なアイテムのインデックスを取得したい場合は、解決策は、この

var 
    i : integer; 
    s : string; 
begin 
    s := 'My Text' +#0; 
    i := Lst1.Perform(LB_FINDSTRING, $FFFFFFFF, PWideChar(s)); 
end; 

iのようなものですが、あなたの指定した文字列と類似しているリストボックスのアイテムのインデックスです。