Duda con StringList
 

Señores, tengo una dificuldad de trabajar con archivos text y Stringlist. O que pasa es:
Hago loop para llenar una Stringlist. Quando esta estas llena, yo ahora hago un Writeln para
descargar en Archivo Text. Bien, esto no es problema, o descargar, pero quando hago asi, los
datos que viene de la Stringlist, generan una linea vacia. Este es mi archivo hoy.

Mi gustaria que quedase asi:

Puedes poner un Edit y cargar cada línea en el edit justo antes de escribir en el fichero de Texto, así te permitirá ver lo que contiene cada línea, pues puede ser que contenga líneas vacías y de ahí te venga el error.

Un Saludo.

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

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...

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.

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 :p