انا شخصيا استعمل الكود التالي لمنع التكرار if table1.Locate(code,edit1.Text,[locaseinsensitive,lopartialkey]) Then begin messagedlg('Dossier existe..?',mtinformation,[mbyes],0); exit; edit1.SetFocus; else table1.isert;... ...... end
