Concatenar multiples datos de una celda.

[pgranados]

Buen día, ya lo resolví, pero esta solución la estuve buscando en el foro y no la encontré, se las comparto si alguien la necesita o si algún día me olvido de ella.

Si tenemos una tabla con los campos

A B C D E
1
1
1


Y queremos imprimir: 111

Hacemos lo siguiente:

Código Delphi [-]
var
valores : string;

for I := 0 to FDQuery.RecordCount-1 do
 begin
    valores:= valores+FDQuery.FieldByName('A').Value;
    FDQuery.Next;
 end;

Al final de recorrer el For, valores será: 111
Saludos.