Fórum Tem alguma coisa nesse código? #563240

procedure TfrmPrincipal.btnPesquisarClick(Sender: TObject);
begin
DM.qryProdutos.Close;
DM.qryProdutos.RestoreSQL;
if edtProduto.Text <> '' then
begin
try
StrToFloat(edtProduto.Text);
DM.qryProdutos.AddWhere(' PCPRODUT.CODPROD = ' +edtProduto.Text );
except
DM.qryProdutos.AddWhere(' PCPRODUT.DESCRICAO LIKE ''%' +edtProduto.Text + '%'' ' );
end;
end;
DM.qryProdutos.Open;
DM.qryCodSim.Close;
DM.qryCodSim.Open;
DM.qryProdutoSimilar.Close;
DM.qryProdutoSimilar.RestoreSQL;
end;
var
vin : String ;
begin
while not DM.qryProdutoSimilar.Eof do
begin
if vin = '' then
vin := DM.qryProdutoSimilar.FieldByName('codprod').AsString
else
vin := vin + ',' + dm.qryProdutoSimilar.FieldByName('codprod').AsString ;
DM.qryProdutoSimilar.next;
end;
DM.qryProdutoSimilar.AddWhere(' PCPRODUT.CODPROD in (' + vin + ')');
end
DM.qryProdutoSimilar.Open;
end;

esta ai um tópico que é realmente nada especifico.
ele nem diz, qual é a sua duvida sobre o código '-'

me desculpe, eu coloquei o código todo no post a cima