很简单的代码，帮忙看看怎么写比较稳定

Question

一个LISTBOX，一个BUTTON
LISTBOX里有N多行数据
按下BUTTON后在N多行里寻找带有ABCD字符的行
如果带有ABCD字符的行小于5行则SHOWMESSAGE（），大于5行也SHOWMESSAGE（）

Answer 1

我是刚学DELPHI的，大家不要笑啊

Answer 2

用循环并用i记数。找到一个带ABCD的行就i+1
最后统计i
if i>5 then SHOWMESSAGE（）
else SHOWMESSAGE（）

Answer 3

另外字符串的比较可以用下面两个函数 首部 function AnsiContainsText(const AText, ASubText: string): Boolean; 
      $[StrUtils.pas
      功能 返回字符串AText是否包含子串ASubText
      说明 不区分大小写
      参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos
      例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; 
      $[StrUtils.pas
      功能 返回字符串AText是否包含子串ASubText
      说明 区分大小写
      参考 function StrUtils.AnsiPos
      例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text);

Answer 4

cnt:=0;
for i:=0 to ListBox1.Items.Count-1 do
begin
    if Pos('ABCD',ListBox1.Items[i])>0 then
        inc(cnt)
end;
if cnt<5 then
   Application.MessageBox('小于5个','提示',MB_OK)
else
   Application.MessageBox('大于5个','提示',MB_OK)