Leer varios archivos de texto y extraer solo 2 lineas de ese texto
 

hola , necesito Leer varios archivos de texto y extraer solo 2 lineas de ese texto para guardarlos en otro archivo ese texto que extrai del original , me gustaria que se fuera agregando al archivo generado cada vez que leo un archivo.

habia empezado con esto pero estoy un poco confundido

afichero : string ;
t: TStrings;
begin
t := TStringList.Create;
{...}
aFichero := TStrings.Create;
aFichero.LoadFromFile('c:\StarBurn.log');
Edit1.Text := aFichero.Strings[19];
end;

estoy trabajando con delphi 6 , muchas gracias por su ayuda :)

No uses un TStrings (ya que es una clase abstracta) usa un TStringList (el uso es el mismo).

¿Cual es el problema?
Lo único que tienes que hacer, es llamar a LoadFromfile y savetofile, por ejemplo

Código Delphi [-]
var Origen, Destino :TStringList;
begin 
  Origen := TStringList.Create;
  Destino := TStringList.Create;
  
  Origen.LoadFromFile(....);
  Destino.LoadFromFile(....); // para que se vayan agregando las nuevas lineas
  if origen.Count-1 > 19 then // si existe la linea 19
  begin
    Destino.Add(Origen[19]);
    Destino.SaveTofile(....);
  end;
  Origen.Free;
  Destino.Free;
end;

Si los archivos son muy grandes (en tamaño) quizás convenga otra forma (no cargar todo el archivo, solo la parte que quieres pillar).


Saludos