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

[mp3968]

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

[Lepe]

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

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