Duda con StringList

[*Caro*]

Hola Paulao, seguramente algunas posiones de tu StringList se deben estar llenando con vacios, lo que puedes hacer antes de pasar lo que tienes en tu StringList es eliminar esos vacios.

Código Delphi [-]
 for i:=StringList.Count-1 downto 0 do
  if StringList[i]='' then
   StringList.Delete(i);

Saluditos

[[maeyanes]]

Hola...

Tu problema viene desde el uso del WriteLn cuando estás escribiendo en el archivo de texto, ya que este procedimiento inserta un Salto de Linea/Retorno de Carro al final de cada línea, así que al final, siempre obtienes una línea en blanco...

Si ya estás usando el TStringList, para guardarlo en un archivo de texto solo tienes que hacer:

Código Delphi [-]
StrinList.SaveToFile('NombreDeArchivo.txt')

Saludos...

[[coso]]

Hola,

ten en cuenta que si una cadena de las del TStringList acaba en char(#13) entonces con el writeln estaras escribiendo 2 saltos de linea.

[[seoane]]

Entiendo que quieres guardar varios TStringList en el mismo archivo de texto así que queda descartado el uso de SaveToFile, para eso tenemos SaveToStream.

Por ejemplo:

Código Delphi [-]
var
  Stream: TFileStream;
begin
  Stream:= TFileStream.Create('C:\1.txt',fmCreate);
  try
    Lista1.SaveToStream(Stream);
    Lista2.SaveToStream(Stream);
    Lista2.SaveToStream(Stream);
      ... etc ...
  finally
    Stream.Free;
  end;
end;

... o tambien puedes usar Write en vez de Writeln