ed=True; }
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: CB1Change (TObject * Sender)
{if (RGF- gt; ItemIndex == 0) - gt; Filtered=False;
{Table1-gt;Filter=laquo;N_Zd=laquo;raquo;+CB1-gt;Text+laquo;raquo;raquo;;-gt;Filtered=True; }
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Edit1Change (TObject * Sender)
{- gt; FindNearest ( amp; TVarRec (Edit1- gt; Text), 0);
}
//---------------------------------------------------------------------------
Додаток 2
Результат роботи програми.
Рис. 1: Результат роботи пошуку
Рис. 2: Результат роботи редагування даних
Рис. 3: Результат роботи фільтрація та пошук
