如何在 Firemonkey TListBox 中查找項目的索引？

Question

我的目標是更新ItemIndex一個的TListBox ，以一種編程方式將項目添加到列表時，相應的線路上列出TListBox 。

我試過：

with MyLstBox do begin
  ItemIndex := -1;
  for ind := 0 to Pred (Items.Count) do
    if InsertedString = Items [ind]) then begin
      ItemIndex := Ind;
      Break;
    end;
end;

此代碼概述了剛剛插入的項目，但也保留了前一個插入項目的輪廓。

MultiSelect設置為False ，因此原則上只應勾勒出一項。

Answer 1

Items屬性是一個TStrings對象。 您可以使用TStrings.IndexOf()方法而不是手動循環：

MyLstBox.ItemIndex := MyLstBox.Items.IndexOf(InsertedString);

當您向 ListBox 添加新項目時， TStrings.Add()方法返回新項目的索引：

MyLstBox.ItemIndex := MyLstBox.Items.Add(InsertedString);