edit問題

Question

我窗体中有200个edit控件我要比较每个edit的值是否相同如果相同则退出
我用一个函数来实现
Function findsn(edit:tedit;edit_i:integer):Boolean;
Begin
Result:=false;    
Case edit_i of
1:begin
If (edit.text=edit2.text)or(edit.text=edit3.text)or(edit.text=edit4.text)or(edit.text=edit5.text)or(edit.text=edit6.text)or(edit.text=edit7.text)or(edit.text=edit8.text)or(edit.text=edit9.text)or
…………………………………………………………………………………………………
…………………………………………………………………………………………………
(edit.text=edit198.text)or(edit.text=edit199.text)or(edit.text=edit200.text) then
Result:=true; 
End;
……………………………………………………………………………………………………
……………………………………………………………………………………………………
……………………………………………………………………………………………………   
200:begin
If (edit.text=edit2.text)or(edit.text=edit3.text)or(edit.text=edit4.text)or(edit.text=edit5.text)or(edit.text=edit6.text)or(edit.text=edit7.text)or(edit.text=edit8.text)or(edit.text=edit9.text)or
…………………………………………………………………………………………………
…………………………………………………………………………………………………
(edit.text=edit198.text)or(edit.text=edit199.text)or(edit.text=edit200.text) then
Result:=true; 
End; 
End;
我觉得这样不好，能否有更好的方法。 请高手赐教

Answer 1

var same:boolean;edit1.text:=sss
 for i := 0 to Self.ComponentCount-1 do
  begin
    if Self.Components[i].ClassName = 'Tedit' then
    begin
      if  Tedit(Components[i]).text=sss
         then
           same:=true
          else-----
    end;
end;