Поиск одинаковых Edit'ов

[Crunkordie]

Здравствуйте.
На форме есть 10 Edit'ов и необходимо их сравнить. Как можно реализовать данную задачку?
Пробую в цикле сравнить так:

if TEdit(Fsortadd.FindComponent('Edit' + IntToStr(i))).Text = TEdit(Fsortadd.FindComponent('Edit' + IntToStr(j))).Text then

но даже при одинаковых данных событие then не срабатывает.

[Serge_Bliznykov]

ну, вроде бы всё верно делаете. (ну, если только перебираете i и j корректно, конечно).

возможно, в одном случае, в текстах Edit'ов различается регистр букв, возможно, есть пробелы в начале или конце...

Выложите на форум архив с маленьким тестовым проектом, иллюстрирующим ваш перебор. Возможно, Вы "замылили" глаз и не видите очевидное..

[dmitriegorovih]

попробуйте вот так

var
i,j:integer;
begin
  for i:=0 to form1.ComponentCount-1 do
  begin
    for j:=0 to form1.ComponentCount-1 do
    begin
      if i<>j then
      begin
        if (form1.Components[i] is TEdit) and (form1.Components[j] is TEdit) then
        begin
          if TEdit(form1.Components[i]).Text = TEdit(form1.Components[j]).Text then
          begin
            showmessage('Ура!!! '+form1.Components[i].Name+' = '+form1.Components[j].Name);
          end;
        end;
      end;
    end;
  end;
end;