Fórum Quebra de linha no TStringList #416498

Esse resultado é o conteúdo de qual stringlist? Mostre parte do código, talvez ajude a identificar o problema.

é o Resultado do StringList2, usando o SaveToFile.

Código:


cdsRegistros.First;
while not(cdsRegistros.Eof) do
begin
contador := contador + 1;
seq := 0;
sList2.Clear;
for i := 0 to 198 do
begin
if not cdsRegistros.IsEmpty then
begin
seq := seq + 1;
valor := cdsRegistrosVALOR.AsString;
valor := StringReplace(valor, ,, ., []);
cValorTotal := cValorTotal + cdsLctosVALOR.AsFloat;
slist2.Add(GeraLC2(IntToStr(Contador), IntToStr(seq), D, edtCtaDeb2.Text, cdsRegistrosTERCEIRO.AsString, , valor, histDeb, , ));
cdsRegistros.Delete;
end;
end;
valor := FloatToStr(cValorTotal);
valor := StringReplace(valor, ,, ., []);
sListFinal.Add(LC1 + FormatFloat(00000, contador) + + 2 + FormatDateTime(DDMMYYYY,
cdsDatasDATA.AsDateTime) + + + StringOfChar( , 30) + FormatFloat(000, seq+1));

sListFinal.Add(GeraLC2(IntToStr(contador), IntToStr(seq+1), C, edtCtaCred2.Text, , , valor, histCrd, , ));
sListFinal.Add(sList2.Text);
end;
sListFinal.SaveToFile(SaveDialog1.FileName);