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

如果列表框为空，我想对其进行检查，如：

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

---

检查Listbox.Items或Listbox是否为空的部分对我来说有点难。我试图找出一种方法来做这件事，但我失败了，因为我还是Delphi的初学者。如何在Delphi XE5中实现这一点？

我将反转您的if语句。

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

就我个人而言，我喜欢我陈述的真实部分中最短的代码，而虚假部分中较短的代码。出于某种原因，这对我来说更有意义

所以代码看起来像：

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

---

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

我会推翻你的if声明。 就我个人而言，我喜欢我陈述的真实部分中最短的代码，而虚假部分中较短的代码。出于某种原因，这对我来说更有意义

所以代码看起来像：

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

---

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

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

我尝试了Me.ListBox.ListCount和.ListIndex以查看列表是否为空

在我的例子中，无论列表是否为空，ListCount始终为1，ListIndex始终为-1

为了克服这个问题，我使用了：

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

---

这对我有用-希望这对Access VBA中的某人有所帮助列表框中没有.items.count属性

我尝试了Me.ListBox.ListCount和.ListIndex以查看列表是否为空

在我的例子中，无论列表是否为空，ListCount始终为1，ListIndex始终为-1

为了克服这个问题，我使用了：

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

---

这对我来说很有用-希望这对某人有所帮助

如果listbox.items.count=0呢？我不知道为什么有人会对这个问题投反对票。投反对票并不表示任何研究努力。也许有人觉得你没有读过TListBox方法和属性文档？我提到我是Delphi的初学者，我发布的每个问题对专家来说可能都有一些奇怪的地方，我从我发布的每个问题的评论和答案中学到了一些东西，就像我从你那里学到的关于列表框的检查计数以及LeleDumbo但是任何关于这个问题是如何回答的，我学到了，这是很好的部分。如果listbox.items.count=0呢？我不知道为什么有人会对这个问题投反对票。投反对票并不表示任何研究努力。也许有人觉得你没有读过TListBox方法和属性文档？我提到我是Delphi的初学者，我发布的每个问题对专家来说可能都有一些奇怪的地方，我从我发布的每个问题的评论和答案中学到了一些东西，就像我从你那里学到的关于列表框的检查计数以及LeleDumbo但无论问题是如何回答的，我都知道，这是好的部分。更精确的是，它会告诉你虚拟模式下列表框的项目数。更精确的是，它会告诉你虚拟模式下列表框的项目数。这是复制的前一个答案的10%，90%是代码式的意见。我会将其标记为非答案，因为这应该是对问题的注释。我个人会使用if Listbox.Items.Count>0，而不是在Pascal中仍然需要if Listbox.Items.Count>0 begin then；这是针对10%抄袭的先前答案，90%是针对代码风格的意见。我会将其标记为非答案，因为这应该是对问题的注释。我个人会使用if Listbox.Items.Count>0，而不是在Pascal中仍然需要if Listbox.Items.Count>0 begin then；这并没有回答这个问题，它有Delphi语言标签。也许你可以找到一个类似的VBA问题来回答。这个问题没有回答这个问题，它有Delphi语言标签。也许你可以找到一个类似的VBA问题来回答。