erro na pesquisa com Query.locate

Question

Pessoal, a pesquisa com query.locate est� funcionado blz...[code:1:4861aac6ed]procedure TFDep032.Edit2Change(Sender: TObject);begin   // abre a query   qr_filtro.Open;   //pesquisa pelo codigo do func...

Dicasecodigosdelphi · Answer

o correto � voce verificar o codigo se � um float valido antes de rodar o locate tipo assim [code:1:b0907c3a8b]try StrToFloat(valor);exceptyshowmessage(codigo invalido);end;[/code:1:b0907c3a8b]...

Martins · Answer

[quote:b482edf23f=�faberssp�]Pessoal, a pesquisa com query.locate est� funcionado blz...[code:1:b482edf23f]procedure TFDep032.Edit2Change(Sender: TObject);begin   // abre a query   qr_filtro.Open;   //pesquisa pelo codigo do funcionario a grade   qr_filtro.locate(�d005codi�,Edit2.Text,&#91;loCaseInsensitive, loPartialKey&93;);end;[/code:1:b482edf23f]na hora que eu pago o primeiro numero da consulta, me retorna um erro =>> is not valid floating point value...ex. vou consultar o funcionario 123 quando dou backspace, no 3 2 blz... mas depois que apago o numero um aparece a mensegem de erro. valeu t+[/quote:b482edf23f]:shock: Veja bem o q vc est� fazendo.Qual evento do edit vc est� usando? OnChange certo? Pois bem, vc est� fazendo a busca a cada vez q tecla, ent�o vazio n�o pode ser ponto flutuante, perceba q ao apagar todos os n�meros vc ficou com �� (vazio), ent�o esse valor n�o pode ser convertido para floating point. Outro detalhe, se vc est� usando Query ent�o porque n�o usar instru��o SQL ou inv�s de LOCATE?Se vc prentende ainda assim usar locate, sugiro que utilize alguma instru��o condicional para n�o ter erro tipo.[code:1:b482edf23f]procedure TFDep032.Edit2Change(Sender: TObject);begin   if Edti2.Text <> �� then   begin     // abre a query      qr_filtro.Open;     //pesquisa pelo codigo do funcionario a grade      qr_filtro.locate(�d005codi�,Edit2.Text,&#91;loCaseInsensitive, loPartialKey&93;);   end;end;[/code:1:b482edf23f]Boa sorte e bons c�digos!  :)...

F�rum erro na pesquisa com Query.locate #373909