Количество одинаковых строк

[Ericnex]

Как правильно подсчитать количество одинаковых строк. Делаю вот так: ответ выводит всегда 2. Как это можно исправить?

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
with AdoQuery1 do
  begin
      First;
    SQL.Text :=
      ' SELECT Eric.name' + // Index у меня - это поле, дубликаты которого надо найти
      ' FROM Eric' +
      ' GROUP BY Eric.name' +
      ' HAVING (((Count(Eric.name))>1));';
    Open;
    i:=1;
    while not EOF do
    begin
      memo1.lines.add(FieldByName('name').AsString); // для поверки - пишу найденные значения в Memo
      // вместо этого можешь сразу заполнять строку для фильтрации
      Next;
      i:=i+1;
    end;
ADOQuery1.ExecSQL;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='Select * from Eric';
ADOQuery1.Open;
Label1.Caption:=inttostr(i);
end;
Showmessage('Составить тех документацию');
end;
end.

[ReportCube]

Попробуйте так:

SELECT Eric.name, COUNT(*) FROM Eric GROUP BY Eric.name HAVING Count(*)>1

[eval]

First;

это чтоб не дай чего?

Делаю вот так: ответ выводит всегда 2. Как это можно исправить?

а что тут исправлять?

[Ericnex]

В любом случае выводит ответ 2 даже если записи 3 или 4

[Прик]

  SQL.Text :=
      ' SELECT Eric.name' + // Index у меня - это поле, дубликаты которого надо найти
  ...

Это такая шутка или тест на сообразительность здешней публики?
Где в запросе слово "Index"? Или он этот Index стоит в сторонке и ухмыляется, глядя на ваши потуги определить где он там в дубликатах числиться?

В приведенном ТС запросе дубликаты ищутся по полю name и этот запрос правильный.
Определитесь по какому полю искать дубликаты.

[Ericnex]

На комментарии в программе не обращайте внимание - это от старого кода осталось. Дубликаты у меня ищутся по полю name. И как определить количество этих дубликатов? И еще вопрос: если у меня 2 экземпляра дубликатов, как тогда правильно вывести количество дубликатов, через массив например?(пример кода если можно)