[Т@tali]

Подскажите пожалуйста. Что я неправильно делаю????? Когда выключаю галочку, все вроде выполняется, а когда опять выключаю обратных действий не происходит.

Код:

procedure TForm2.CheckBox1Click(Sender: TObject);
var SQ:string;
begin
SQ:= 'SELECT * from Strana where kont_id<>1';
if CheckBox1.Checked then with Query1 do
else
begin
Query1.close;
Query1.SQL.Clear;
Query1.SQL.Add(SQ);
Query1.Active:=true;
end;
end;

Admin: Пользуемся тегами!