[tiagor64]

Hola:

Estoy trabajando en un programa que me lee un condigo desde un edit, y tendria que devolverme despues de buscar en una funcion dos strings, uno con la descripcion y otro con las unidades y no se como hacerlo, os pego un trozo de codigo.

 function tform4.buscararticulo(celda : string) : string;
begin
qrycache.sql.text := 'select descripcion from articulos_cache where codigo = '' '+celda+'''';
qrycache.Open;
if dsarticulocache.DataSet.FieldByName('descripcion').AsString = '' then
   result := 'CODIGO NO ENCONTRADO'
   else result := dsarticulocache.DataSet.FieldByName('descripcion').AsString;
end;
procedure TForm4.Edit4Exit(Sender: TObject);
begin
edit5.text := buscararticulo(edit4.Text);
end;
procedure TForm4.Edit7Exit(Sender: TObject);
begin
edit8.text := buscararticulo(edit7.Text);
end;

asi es como lo tengo ahora, pq necesitaba q me devolviera solo la descripcion, pero para que me devuelva tb otro campo q son las unidades no se como hacerlo sin llamar otra funcion.

Muchas gracias de antemano.