Архив форумов ЦИТФорума

[Gon_gall]

Я написал такой код и хочу штобы у меня искало по нажатию на CheckBox значение которое задано в Edit но это не работает прошу помочь как это должно выглядеть и что я делаю неправильно???

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
var
i,f,o:string;
begin
if form1.CheckBox1.Checked then
begin
f:=dataset['family'];
accept := f = edit1.Text;
end;
if form1.CheckBox2.Checked then
begin
i:=dataset['name'];
accept := i = edit2.text;
end;
if form1.CheckBox3.Checked then
begin
o:=dataset['oth'];
accept := o = edit3.text;
end;
end;