poner en activo un registro

[Casimiro Noteví]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias

Así quedaría tu mensaje:

Código SQL [-]
select * from CLIENTES where codigo like:a

Código Delphi [-]
procedure TFormClientes.EditCodigoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
{var
   Busqueda:boolean;
   Opcion:tlocateoptions;}
var
  a,resultado:integer;
begin
    if key=vk_return then
begin
    a:=strtoint(EditCodigo.Text);
    MyQuery.close;
    Myquery.ParamByName('CODIGO').AsInteger:=a ;
    Myquery.Open;
    if Myquery.RecordCount > 0 then
      begin
       Resultado := Myquery.FIeldByName('Codigo').asInteger;
      end
     else
       Resultado := -1;
    MYquery.close;
end;