获取拉撒路的TSt​​rings列表长度

Question

我有一个名为ListBoxPlayers的TListBox，我相信ListBoxPlayers.Items引用TListBox中的TStrings列表。我正在尝试使用this函数，但它似乎不起作用。有什么想法吗？

编辑： 所以我试图根据要显示的字符串数来设置TListBox的大小。这是我的代码：

procedure TForm3.edtSearchChange(Sender: TObject);
begin
  ListBoxPlayers.Clear;
  if Length(edtSearch.text) > 0 then
     begin
        setSizeListBox((ListBoxPlayers.Items.Count));
        ListBoxPlayers.Visible:=true;
        dynamicSearch(edtSearch.Text)
     end
  else
     ListBoxPlayers.Visible:=false;
end;  

ListBoxPlayers.Items.Count始终保持为0，但列表中有很多项目。

Answer 1

它应该与它看起来完全相同，并且与它在Delphi中的工作方式相同：

NumberOfItems := ListBoxPlayers.Items.Count;

用于循环：

for i := 0 to ListBoxPlayers.Items.Count - 1 do

或者

for i := 0 to Pred(ListBoxPlayers.Items.Count) do