------------------------
void __fastcall TForm6 :: Edit1Change (TObject * Sender)
{
String StrFiltr;
Table1-> Filtered = false;
Table1-> Refresh ();
StrFiltr = Edit1-> Text + "*";
Table1-> Filter = "Group = '" + StrFiltr + "'";
if (CheckBox1-> Checked)
Table1-> Filtered = true;
}
// --------------------------------------------- ------------------------------
. ru