Parsear texto con TString

[ecfisa]

Empezado por avechuche

Tengo que hacer esto

Código Delphi [-]
arrayColumnas := TStringList.Create

dentro del While asi resetea arrayColumnas ?

Osea lo hice y anda perfecto, pero está bien aplicado? porque me da que esta mal crear el TStringList cada vez que cambio la linea.

Hola avechuche.

Si creas y liberas el stream cada vez, no tendría que haber problemas. Mejor tal vez sea crearlo antes del ciclo while, vaciarlo con el método Clear y liberarlo despues.

Algo como:

Código Delphi [-]
  stream := TStringList.Create; // crear
  try
    while (...) do
    begin
      //... 
      stream.Clear   //<== vaciar
    end
  finally
    stream.Free  // liberar
  end;

También te podrías ahorrar todo el tema de leer el archivo recorriéndolo con while si usas el método LoadFromFile de TStrings. De ese modo podes acceder a cada línea del archivo mediante el índice.

Pero siendote sincero, no alcanzo a entender claramente como deseas que queden las líneas leidas desde el archivo en el stream.

Saludos.