请教EDIT比较问题 在线等！！！！！！！！！急等

Question

有6个EDIT.text 请教如何比较这6个输入框的内容不相同呢，如有其中两个相同就提示信息‘’有没有好的方法啊，请高手告诉下，多谢！

Answer 1

function TForm1.NotSameInput: Boolean;
var
  i, j: Integer;
  s: string;
begin
  Result := False;
  for i := 1 to 5 do begin
    s := Trim(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
    for j := i + 1 to 6 do
      if Trim(TEdit(FindComponent('Edit' + IntToStr(j))).Text) = s then
        Exit;
  end;
  Result := True;
end;

Answer 2

var
  i,j: Integer;
begin
  for i := 0 to ComponentCount-1 do
  for j := 0 to ComponentCount-1 do
  begin
    if (Components[i] is TEdit) and (i<>j) then
    begin
      if AnsiCompareStr(TEdit(Components[i]).Text,TEdit(Components[j]).Text)=0 then
      begin
      showmessage('相同');
      exit;
      end;
    end;
  end;

Answer 3

用FindComponent查找，然后比较。