Mostrar resultado de query en tLabel o tmemo

[ecfisa]

Hola @-Soft.

El amigo ElKurgan te dió un ejemplo genérico dando solución a tu primer pregunta y tácitamente contempla lo que consultas ahora.

Si quisieras mostrar un campo no es necesario el for ya que, valga la redundancia, es uno sólo.

Por ejemplo si quisieras mostrar campo de índice 0 :

Código Delphi [-]
   Memo1.Lines.Add(Consulta.Fields[0].AsString);

O de otro modo, referenciando el nombre del campo que buscas mostrar:

Código Delphi [-]
   Memo1.Lines.Add(Consulta.FieldByName('CAMPO').AsString); // Reemplazá 'CAMPO' por el nombre del campo que deseas mostrar

Con el mismo resultado, usando la función FindField:

Código Delphi [-]
   Memo1.Lines.Add(Consulta.FindField('CAMPO').AsString);

Es decir, tres formas diferentes de mostrar el mismo resultado.

Saludos.

Edito: En realidad serían cuatro si está creado el campo persistente:

Código Delphi [-]
   Memo1.Lines.Add(ConsultaCAMPO.AsString);