o que tem de errado nesse c�digo?

Question

[b:971c3fff49]procedure TForm5.DBEdit1Change(Sender: TObject);beginif (ADOQuery1Fornecedor.asstring=�Philips�) thenADOQuery1Fornecedor.asstring := �10�else if (ADOQuery1Fornecedor.asstring=�Sony�) the...

Rafs · Answer

A princ�pio n�o est� errado, por�m n�o deve estar funcionando como voc� deseja. Poste aqui qual o comportamento deste c�digo na sua aplica��o e tamb�m a qual campo da tabela o componente DBEdit1 est� lincado.
Se estiver lincado ao pr�prio campo que vc est� alterando, ele poder� se comportar de forma estranha.

Fernanda Fonseca · Answer

ele esta ligado ao mesmo campo sim!
eu digito Philips e aparece Philips.. mas se eu volto nu dbedit e apago ou digito qualquer outra coisa aparece o numero 10!!

Esta aparecendo o que eu quero depois!!

Inutaishou · Answer

Fernanda, postei em seu outro t�pico:[quote:e1cde43f01]O DBEdit s� posta a mensagem para a tabela no seu OnExit... Use o DBEdit.Text para fazer isso que est� querendo...[]�s,[/quote:e1cde43f01][]�s,...

Rafs · Answer

Ao inv�s de virificar o conte�do que est� na tabela, verifique o conte�do no pr�prio componente, assim vc obter� o resultado esperado.

procedure TForm5.DBEdit1Change(Sender: TObject);
begin
if ([b:40b2332733]DBEdit1.Text[/b:40b2332733]=�Philips�) then
ADOQuery1Fornecedor.asstring := �10�
else if ([b:40b2332733]DBEdit1.Text[/b:40b2332733]=�Sony�) then
ADOQuery1Fornecedor.asstring := �20�;

Da forma acima descrita, acredito que vc obter� o resultado que deseja.

F�rum o que tem de errado nesse c�digo? #243791