Цитата
Программа как бы сама обнаруживает, есть ли повторения, и если есть, выдает эти строки
ADOQuery в помощь:// настроишь AdoQuery1 в Design-е: Connection + DataSourceХотя, по-моему, твою программу надо полностью переделать, и она будет гораздо проще. Ты все делаешь вручную, не пользуясь никакими средствами работы с БД. Оно тебе надо?
procedure TForm1.ButtonDuplicatedClick(Sender: TObject);
begin
with AdoQuery1 do
begin
SQL.Text :=
' SELECT Table1.index' + // Index у меня - это поле, дубликаты которого надо найти
' FROM Table1' +
' GROUP BY Table1.index' +
' HAVING (((Count(Table1.index))>1));';
Open;
while not EOF do
begin
memo1.lines.add(FieldByName('index').AsString); // для поверки - пишу найденные значения в Memo
// вместо этого можешь сразу заполнять строку для фильтрации
Next;
end;
close;
end;
// Ну, а тут - уже фильтрация
end;