Leer 4 Lineas de dos Archivo .txt

[wcbs]

Exelente amigo ecfisa Usted es un Master

por eso es que hay que preguntar, me lee bien el archivo, ahora debo hacer que me lea el otro archivo para mostrar
en la misma ventana las otras dos lineas, recuerda que son dos archivos que debo de leer, me imagino que debo declara
dos variable mas y cargar el segundo archivo...

esto fue lo que le estuve que agregar, para que me lo muestre asi, en ves de en un ShowMessage...

Edit1.Text:= Linea4;
Edit2.Text:= Linea5;
//ShowMessage(linea4+#10+linea5); // mostrarlas
......................................................................

Ahora bien...la otra pregunta, como hago para hacer que al presionar F6, me cargue la aplicación, yo e mirado estos comentarios que para ejecutar el archivo debe ser con esta instrucción

if GetAsyncKeyState( VK_F6 ) = -32767 then

WinExec(PChar('c:\Metros\metros.exe'),SW_SHOWNORMAL);

pero todavía no logro que me cargue la aplicación, me puedes indicar como hacerlo

Gracias....

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