NO ENTRA -> if Enum.Text = adoquery1.FieldByName('numero').AsString then

[sakuragi]

hola que tal

no eh podido hayar el problema por que no me entra a un if.

esta es la cuestion

hise esta pequeña consulta con el componete zeos

 if key = 13 then
 	  begin
 		  zquery1.SQL.Clear;
 		  zquery1.SQL.Add('select * from clientes where numero='+quotedstr(enum.Text)+'');
 		  zquery1.Active:=true;
 		  if enum.Text = zquery1.FieldByName('numero').AsString then
 		  begin
 			   enom.Text := zquery1.FieldByName('nombre').AsString;
 			   EDir.text:=zquery1.fieldbyname('direccion').asstring;
 			   bcancelar.SetFocus;
 			   beliminar.Enabled:=true;
 			   bmodificar.Enabled:=true;
 		  end
 		  else
 		  begin
 			   enom.SetFocus;
 			   bguardar.Enabled:=true;
 		  end;
 	 end;

todo sale bien

ahora lo hise con el ADO

que quedo asi:

 if key = 13 then
 	  begin
 		   adoquery1.SQL.Clear;
 		  adoquery1.SQL.Add('select * from clientes where numero='+quotedstr(enum.Text)+'');
 		  adoquery1.Active:=true;
 		  if Enum.Text = adoquery1.FieldByName('numero').AsString then
 		  begin
 			   enom.Text := adoquery1.FieldByName('nombre').AsString;
 			   EDir.text:=adoquery1.fieldbyname('direccion').asstring;
 			   bcancelar.SetFocus;
 			   beliminar.Enabled:=true;
 			   bmodificar.Enabled:=true;
 		  end
 		  else
 		  begin
 			   enom.SetFocus;
 			   bguardar.Enabled:=true;
 		  end;

todo se ve bien

pero no entra en el if sem ehase muy rarro

 if Enum.Text = adoquery1.FieldByName('numero').AsString then

bueno

cual quier ayuda se los agradeseria mucho

saludos