Question

在delphi 中 有9个edit，分别是数字1~9，怎么判断他们的值各不相同？

比如
edit1.text的值是1
edit2.text的值是3
…………………………

通过按一个button后，我知道他们是不是相同，如果不同的话，就通过。

但怎么判断啊？？各位帮帮，我是菜鸟新手，谢谢了

Answer 1

思路：把Edit1-10的内容放入StringList，然后排序，如果不重复的话排序出来应该是'1,2,3,4,5,6,7,8,9'这个顺序，否则只要有一个重复就不是这个结果了，代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringList;
begin
sl:=TstringList.Create;
sl.Add(Edit1.Text);
sl.Add(Edit2.Text);
sl.Add(Edit3.Text);
sl.Add(Edit4.Text);
sl.Add(Edit5.Text);
sl.Add(Edit6.Text);
sl.Add(Edit7.Text);
sl.Add(Edit8.Text);
sl.Add(Edit9.Text);
sl.Sort; //排序
if sl.CommaText='1,2,3,4,5,6,7,8,9' then
showmessage('Pass!')
else
Showmessage('Wrong');
sl.Destroy;
end;