美 美女1号 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-23 #1 listbox中有一值为aa，每过5分钟，就在aa的后面加上'.'
H hhjjhhjj Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-23 #2 Var TmStr: String; I: Integer; Begin For I := 0 To ListBox1.items.Count - 1 D0 Begin TmStr := Trim(ListBox1.items); If CompareStr(Tmstr,'aa')=0 Then Begin ListBox1.items := 'aa'+'.'; Break; End; End; End; //没有实验过,自己随手写的哈...
Var TmStr: String; I: Integer; Begin For I := 0 To ListBox1.items.Count - 1 D0 Begin TmStr := Trim(ListBox1.items); If CompareStr(Tmstr,'aa')=0 Then Begin ListBox1.items := 'aa'+'.'; Break; End; End; End; //没有实验过,自己随手写的哈...
