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

[1147]

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

[1147]

При вводе заведомо повторяющегося значения программа не обнаруживает повтор. Но если это значение ввести еще раз, программа об этом сообщает. Почему же она выдает ошибку только со второго раза?
Если введено сразу несколько повторов, Label отображает только одно вот так например: 54|
а второго нету..
В этом коде повторение Label1.Caption+ так и должно быть?

isOk := false; Label1.Caption :=Label1.Caption+ dbSL.Strings[i] + ' | ';

Я все сделал вот таким образом:

type
  TForm1 = class(TForm)

private
    { Private declarations }
        arrSL: array of TStringList;
           SL: TStringList;

public
    { Public declarations }
    procedure CreateStrList(const T: TADOTable; sFieldName: string; i: integer);
  end;

procedure TForm1.CreateStrList(const T: TADOTable; sFieldName: string; i: integer);
var s: string;
begin
  T.First;
  while not T.Eof do begin
    s := s + ',' + T.FieldByName(sFieldName).AsString;
    T.Next;
  end;
  arrSL[i] := TStringList.Create;
  arrSL[i].Duplicates := dupIgnore;
  arrSL[i].Delimiter := ',';
  arrSL[i].DelimitedText := s;
end;

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 i: integer;
begin
  SetLength(arrSL, 0);

  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if Form1.Components[i] is TADOTable then
    begin
      SetLength(arrSL, Length(arrSL) + 1);
      CreateStrList(Form1.Components[i] as TADOTable, 'txt', Length(arrSL) - 1); 
    end;
  end;
end;

procedure TForm5.ADOTable1BeforePost(DataSet: TDataSet);
var
  dbSL, findSL: TStringList;
  i: integer;
  isOK: boolean;
  filterStr: string;
const
  ORstr: array[boolean] of string = (' OR ', '');
begin
  dbSL := TStringList.Create;
  dbSL.Delimiter := ',';
  dbSL.DelimitedText := DBEdit3.Text;

  findSL := TStringList.Create;
  findSL.Duplicates := dupIgnore;

  isOK := true;
  for i := 0 to dbSL.Count - 1 do begin
    if SL.IndexOf(dbSL.Strings[i]) > -1 then begin
      isOk := false;   Label1.Caption := dbSL.Strings[i] + ' | ';
      findSL.Add(dbSL.Strings[i]);
    end;
  

  if isOK then begin
    for i := 0 to dbSL.Count - 1 do begin
      SL.Add(dbSL.Strings[i]);
    end;
  end
  else begin
    filterStr := '';
    for i := 0 to findSL.Count - 1 do begin
      filterStr := filterStr + ORstr[i = 0] +
        '([txt] LIKE *' + findSL.Strings[i] + '*) ';

    end;
    DataSet.Cancel;
   ADOTable1.Filtered := False;
   ADOTable1.Filter := filterStr;
   ADOTable1.Filtered := True;

    Abort;

  end;
  dbSL.Free;
end;
end;

Большая просьба показать мне в чем я допустил ошибку

Сообщение отредактировано: 1147 - 18.11.2009 5:45