Ayuda busqueda de case usando radiogroup

[cristian22]

Empezado por ecfisa

Hola.

Ahora si entiendo la relación...

Código Delphi [-]
...

procedure TForm1.eProductoChange(Sender: TObject);
begin
  if RadioGroup1.ItemIndex <> -1 then
  begin
    qProducto.Close;
    qProducto.SQL.Clear;
    qProducto.SQL.Add('SELECT * FROM PRODUCTO');
    qProducto.SQL.Add('WHERE ESTADO = :STATE');
    qProducto.SQL.Add('AND NOMBREPRODUCTO LIKE :NAME');
    qProducto.ParamByName('STATE').Value := 1 - RadioGroup1.ItemIndex; // (**)
    qProducto.ParamByName('NAME').AsString := '%' + TEdit(Sender).Text + '%';
    qProducto.Open;
  end;
end;

(**) linea que reemplaza a:


Saludos

muchas gracias. funciona perfecto mil gracias de verdad