如何使用循环

时间:2015-04-23 14:40:39

标签: delphi

我想在Delphi中制作菜单,子菜单和子菜单。总长度为4000个项目,它将非常明确地定义它们并单独给出一个动作。我知道我可以使用循环来定义他们的标题和他们的onclick。我尝试过不同的命令,但程序找不到这些命令。

例如,我想比较来自不同公司的产品,比方说食物。有机或非有机。乳制品有牛奶,酸奶,奶酪,奶油等,每种都有天然,中等或低脂肪。等等其他食品。我在文件中列出了一个产品列表,以便我可以从文件中读取每个项目,并在创建它们时将它们放在menuitem的标题中。但我不知道如何创建菜单项并在其标题中添加文本。我使用过xtem.Index [i],但程序无法识别。

当我准备好菜单的定义时,我必须制作一个循环,当我在菜单栏中选择一个项目时,它必须出现在编辑框中以便进一步计算,所以我没有问题。

另外我的问题是制作两种类型的有机食品和非有机食品 每个子菜单都有超过1000个子菜单,每个子菜单至少有一个项目,可能是某些子菜单中的项目很少。所以我想通过循环使用菜单。

之后,当我选择一个项目时,它应该出现在编辑框中,所以我必须在循环中使用适当的命令。

我希望并希望并感谢您能帮我解决我的要求并告诉我一些命令,以便我可以完成我的计划

1 个答案:

答案 0 :(得分:3)

您对自己想要的内容并不十分具体,所以我已经为您提供了一个如何在运行时创建MainMenu的小例子。但我同意这些评论是一个不好的解决方案。

但不管怎么说:

# look up the commit id in git log or on github, e.g. 42480f3, then do
git checkout master
git checkout your_branch
git revert 42480f3
# a text editor will open, close it with ctrl+x (editor dependent)
git push origin your_branch
# or replace origin with your remote