如何检查列表框是否为空？

Question

我想检查ListBox是否为空，如：

if {Listbox.Items is empty} then
begin
  Listbox.Items.Add('Item');
end else
begin
  //do somthing else
end;

检查Listbox.Items或Listbox是否为空的部分对我来说有点困难。我试图弄清楚如何做到这一点，但我失败了，因为我还是Delphi的初学者。如何在Delphi XE5中实现它？

Answer 1

if listbox.items.count = 0 then
  // it's empty

Answer 2

在Access VBA中，列表框上没有“ .items.count”属性

我尝试使用Me.ListBox.ListCount和.ListIndex来查看列表是否为空。

无论列表是否为空（在我的情况下），ListCount始终为1，ListIndex始终为-1。

要克服我曾经用过的方法：

If Me.ListBox.ItemData(0) = "" then
    Do Something
End If

这对我有用-希望这对某人有帮助

Answer 3

我会撤销你的if声明 就个人而言，我喜欢我的陈述的真实部分中的大多数代码和错误部分中的较短代码。出于某种原因，这对我来说更有意义。

所以代码看起来像：

If Listbox.items.count > 0
begin
  //Do something else
end
else
 Listbox.items.add('item');

此外，如果您的true或false部分只包含1行代码，则不需要begin..end。拥有它们并没有错，但在我看来，如果代码不存在，它会让代码更容易阅读;）