Cita:
Empezado por Kamael
Gracias enecumene. Tambien me funciona lo tuyo.
Así termina la cosa :
If Tloc.FindKey([Lo.Text]) then
Lo.Text := TLoc.Fields[0].AsString ;
No.Text := TLoc.Fields[1].AsString ;
|
Puede ser que tengas problema con esa porción de código
Imagina que pasa si no encontró la llave
, pues va a modificar
No.Text con un dato erróneo
Encierra el bloque con
begin....end
Código Delphi
[-]
If Tloc.FindKey([Lo.Text]) then begin
Lo.Text := TLoc.Fields[0].AsString ;
No.Text := TLoc.Fields[1].AsString ;
end;
Por cierto, usa las etiquetas
Delphi para que el código se vea mejor.
Salud OS