повторяющиеся данные в dbgrid - ? Опции

[1147]

Подскажите пожалуйста, как можно сделать с помощью фильтра, чтобы при вводе в dbedit, например номера 128-ас, и если такой же номер уже есть в gride, то указывалось что этот номер уже существует?

[volvo]

Ну, смотри, чего я наваял:
1) в классе формы есть

  private
    { Private declarations }
    SL: TStringList;

, который создается и уничтожается в OnCreate/OnDestroy формы, а заполняется - в OnShow:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SL := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SL.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
var s: string;
begin
  ADOTable1.First;
  while not ADOTable1.Eof do begin
    s := s + ',' + ADOTable1.FieldByName('txt').AsString;
    ADOTable1.Next;
  end;

  SL.Duplicates := dupIgnore;
  SL.Delimiter := ',';
  SL.DelimitedText := s;
end;

2) ну заполнить-то мы StringList заполнили, теперь надо проверять содержимое DBEdit-а после заполнения. Будем делать это в OnBeforePost таблицы:

procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
var
  dbSL: TStringList;
  i: integer;
  isOK: boolean;
begin
  dbSL := TStringList.Create;
  dbSL.Delimiter := ',';
  dbSL.DelimitedText := DBEdit2.Text; // разбили содержимое DBEdit-а на составляющие

  isOK := true;
  for i := 0 to dbSL.Count - 1 do begin
    if SL.IndexOf(dbSL.Strings[i]) > -1 then isOk := false;
  end; // проверяем, встречается ли в SL хоть одна из этих составляющих

  if isOK then begin
    // нет, не встретилась, ошибки не будет, добавляем новые значения в список
    for i := 0 to dbSL.Count - 1 do begin
      SL.Add(dbSL.Strings[i]);
    end;
  end
  else begin
    // ага !!! что-то повторяется !!! сообщаем и откатываем обновление записи ...
    ShowMessage('Duplicate value detected !!!');
    DataSet.Cancel;
    Abort;
  end;
  dbSL.Free;
end;

Больше пока ничего в голову не пришло.