Código Delphi
[-]
if loFirst then begin
qryPagos.Filter := 'Folio = '+IntToStr(qryReporteFolio.Value)+' AND Cancelado = '+chr(39)+'False'+chr(39);
qryPagos.First;
lo_s := '';
While not qryPagos.Eof do begin
if lo_s = ' ' then
lo_s := FloatToStr(qryPagosImporte.Value) <---- Primero
else
lo_s := lo_s+FloatToStr(qryPagosImporte.Value);<--justo aqui
qryPagos.Next;
end;
donde te indico con texto rojo justo ahi no concatenes mejor almacena los resultados en un stringList que viene siendo como un arreglo dinamico, ejemplo;
Código Delphi
[-]
var
StringList: TStrings;
begin
StringList := TStringList.Create;
try
StringList.Add(qryPagosImporte.asString);
StringList.Add('Otro valor más');
end;
finally
StringList.free;
end;
end;
te mando este link y aqui viene como usar el string list.
http://delphiallimite.blogspot.com/2...inglist-i.html
no se si me hayas captado la idea pero seria como una pila de datos y asi te evitas concatenar y luego desconcatenar
1 |valor1
2 |valor2
3 |valor3
...
n |valor
n
y asi vas recorriendo el stringList y tomando valores
espero que te sirva, saludos.