procedure TForm1.DBNavigatorClick(Sender: TObject; Button: TNavigateBtn);
begin
if button = nbpost
then
begin
proverka;
end;
end;

procedure TForm1.proverka;
begin
if table1.Locate(table1class.Value,editclass.text,[])
then ShowMessage('Record is found');
end;


table1class име на полето
editclass текстовото поле където севъвеждат стойностите


пускам програмата изтривам всички записи (т.е. няма нагледно)
в editclass въвеждам 9s натискам post button и извежда това


---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EDatabaseError with message 'Table1: Field '9s' not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------





при абсолютно същата процедура обаче
table1.Locate(table1class.KeyFields,editclass.text,[])
и няма наличие на запизи(предварително съм ги изтрил като съм пуснал програмата) се показва съобщение Record is found




при абсолютно същата процедура
table1.Locate(table1class.KeyFields,table1class.CurValue,[])
table1class.CurValue - предполагам че това е за текуща стойност
и няма наличие на запизи(предварително съм ги изтрил като съм пуснал програмата)се показва това



---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EDatabaseError with message 'Table1: Not in cached update mode'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------