Concatenar multiples datos de una celda.

[[duilioisola]]

Hay ciertos casos en los que este código podría no funcionar.
Por ejemplo, si el DataSet es unidireccional. La propiedad RecordCount no está "disponible".
La propiedad Unidirectional hace que solo puedas ir hacia adelante y no guarda registros anteriores en memoria, lo que lo hace más rápido y eficiente.

Además de esto, he agregado algunas comprobaciones para asegurar que todo funcione correctamente.

• Inicializo variables.
• Posiciono en primer registro.

Código Delphi [-]
var
   valores : string;
begin
[...]
  // Inicializo variable
  valores := '';

  // Me aseguro de estar en el primer registro del DataSet
  FDQuery.First;

  // Recorro DataSet hasta que no haya mas registros
  while not FDQuery.EOF do
  begin
    valores := valores + FDQuery.FieldByName('A').Value;
    FDQuery.Next;
  end;
[...]
end;

[pgranados]

Empezado por duilioisola

Hay ciertos casos en los que este código podría no funcionar.
Por ejemplo, si el DataSet es unidireccional. La propiedad RecordCount no está "disponible".
La propiedad Unidirectional hace que solo puedas ir hacia adelante y no guarda registros anteriores en memoria, lo que lo hace más rápido y eficiente.

Además de esto, he agregado algunas comprobaciones para asegurar que todo funcione correctamente.

• Inicializo variables.
• Posiciono en primer registro.

Código Delphi [-]
var
   valores : string;
begin
[...]
  // Inicializo variable
  valores := '';

  // Me aseguro de estar en el primer registro del DataSet
  FDQuery.First;

  // Recorro DataSet hasta que no haya mas registros
  while not FDQuery.EOF do
  begin
    valores := valores + FDQuery.FieldByName('A').Value;
    FDQuery.Next;
  end;
[...]
end;

Gracias por las respuestas, como siempre, un maestro. Saludos.