Проверка записей в DBGrid

[Stranger333]

rdama, че то у меня твой код не работает, в смысле он то запускается но меседж то не выводит

Ты это код на какое событие написал, на BeforePost или другой?

[rdama]

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    ADOQuery1.ExecSQL;
  except on e:exception do
  begin
    if  e.HelpContext = 5003022 then
      ShowMessage('Вы пытаетесь ввести дублирующее значение в поле A');
  end;
  end;
end;

[Stranger333]

У меня поле с маскою L00. Я хочу сделать меседжи при неправильном вводе. Вот код но он че то не работает не пому почему

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var s:string;
begin
with DBGrid1.Fields[1] do
begin
  if not (key in ['a'..'z']) and (Length(Edit2.Text)=0) then  begin
key:=#0; ShowMessage('2'); end  else
  begin
  Edit2.Text := key;
   end;
  if not (key in ['0'..'9']) and (Length(Edit2.Text)=1) then begin key:=#0; ShowMessage('2'); end;
     end;
end;

[rdama]

Так для начала F5 на строке

if not (key in ['a'..'z']) and (Length(Edit2.Text)=0) then  begin

И проверяем как ты проходишь все условия. И в твоем случае пытаемся понять почему проходим.
И еще может маску стоит сделать на уровне БД. Access позволяет это сделать. Ну можно еще воспользоваться MaskEdit и в нем маску вбить.
Но для маскэдита надо небольшую доводку на тему корректной обработки BackSpace
На FormShow ставим маску

MaskEdit1.EditMask:='L99;1;*';

можешь и в свойствах задать.
Объявляешь глобальную переменную K:Word;
В событии MaskEdit1KeyDown пишешь

K:=Key;

На MaskEdit1Change

  MaskEdit1.Text:=UpperCase(MaskEdit1.Text);
  if K = 8 then
    MaskEdit1.SelStart:= Length(Trim(MaskEdit1.Text))+1
  else
    if K <> 0 then
      MaskEdit1.SelStart:= Length(Trim(MaskEdit1.Text));

И у тебя в этот едит кроме как по маске ничего вводиться не будет.
Тебе надо будет только при сохранении проверять что туда ввели все элементы строки т.е. что длина строки не меньше 3 символов.

[golopjatov]

Когда-то сталкивался с таким же вопросом.. сделайте по ключу... т.е. при разработке БД чтобы устранить дублирование записей. Почему? Да потому, что всё будет зависеть от объема записей в БД. БД своими средствами бистрее проверит на дублирование, чем вы будите прогонять ее сами (к примеру в том же цикле)

Почитайте, вспомните про, я думаю составные ключи....

Простые и составные ключи

http://ru.wikipedia.org/wiki/Первичный_ключ
Первичный ключ может состоять из единственного поля таблицы, значения которого уникальны для каждой записи. Так, например, на предприятии не может быть двух работников с одинаковыми табельными номерами, поэтому в таблице, содержащей записи о работниках, табельный номер может быть первичным ключом. Такой первичный ключ называют простым ключом.

Если таблица не имеет единственного уникального поля, первичный ключ может быть составлен из нескольких полей, совокупность значений которых гарантирует уникальность. Так, имя, фамилия, отчество, номер паспорта, серия паспорта не могут быть первичными ключами по отдельности, так как могут оказаться одинаковыми у двух и более людей. Но не бывает двух личных документов одного типа с одинаковыми серией и номером. Поэтому в таблице, содержащей записи о людях, первичным ключом может быть набор полей, состоящий из типа личного документа, его серии и номера. Такой первичный ключ называют составным ключом (англ. compound key, composite key, concatenated key).

Ну и проверку на ввод значения можете сделать (по маске). А целостность поручить лучше встроенным средствам БД.