如何在DBlistBox1.items查找第一个字母等于A的值呢?

1 问题点数：20、回复次数：1Top

1 楼dongxsoft（浮云化雨）回复于 2002-08-02 22:16:56 得分 20

var  
      i:   Integer;  
      str:   string;  
      strlist:   TStringlist;  
  begin  
      for   i:=   0   to   dblistbox1.items.count   do  
      begin  
          str:=   dblistbox1.Items.Strings[i]);  
          if   copy(str,1,1)='A'   then  
          Strlist.add(str);          
      end;  
      showmessage(strlist.text);  
  end;Top

相关问题

• dblistbox
• strlist
• items
• str
• begin

• 帖主：fhqkhnzh
• dongxsoft

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载