Leer 4 Lineas de dos Archivo .txt

[Casimiro Noteví]

Recuerda poner los tags al código fuente, ejemplo:




Por cierto, echa un vistazo a nuestro repositorio, encontrarás varios gigas de información, entre ellos también libros de programación delphi.
Es que tus dudas son básicas, como si estuvieses preguntando cómo sumar 1 manzana y 2 manzanas. Y después preguntas cómo harías si en lugar de manzanas son plátanos

[wcbs]

Gracias amigo Casimiro Notevi

es como les comentaba mas arriba, soy nuevo en esto de programación en delphi, mi poco conocimiento
de programación son pequeños ya que cuando llegue a hacer algún pequeñito programa había que crear
enormes archivos llenos de comando a diferencia de ahora que con pocas instrucciones se hacen mas cosas

también te agradezco la ayuda y pasare por los repositorios para seguir aprendiendo..


Gracias...

[Casimiro Noteví]

Por supuesto, un libro

Ya ecfisa te ha escrito el código que necesitas, para otro fichero de texto es sólo repetirlo.
En plan rápido:

Código Delphi [-]
var linea4, linea5,
    linea4b, linea5b: string; 
begin   
  with TStringList.Create do   
  try    
    LoadFromFile('C:\RUTA\C2006.DAT');  //  *********** un fichero     
    linea4 := Strings[3];     
    Linea5 := Strings[4];      // aquí ya tenes las lineas deseadas en las variables linea4 y linea5   
  finally     
    Free;   
  end;   
  ShowMessage(linea4+#10+linea5); // mostrarlas
 
  with TStringList.Create do   
  try     
    LoadFromFile('C:\RUTA\C2007.DAT');   //  *********** otro fichero     
    linea4b := Strings[3];     
    Linea5b := Strings[4];      // aquí ya tenes las lineas deseadas en las variables linea4 y linea5   
  finally     
    Free;   
  end;   
  ShowMessage(linea4b+#10+linea5b); // mostrarlas

  ShowMessage(linea4+#10+linea5+#10+linea4b+#10+linea5b); // mostrarlas todas ----
end;

[Casimiro Noteví]

Y recuerda nuestra guía de estilo, gracias por tu colaboración

[wcbs]

Hola Casimiro Notevi

Disculpa la que no halla respondido antes ya que estaba fuera de la ciudad. acabo de probar estas instrucciones
y trabajan excelente, ahora seguiré haciendo la otra parte para poder terminal.

Mean sido de mucha ayuda, cualquier otra inquietud ya les comentare.

Muchas Gracias de Nuevo....