Leer 4 Lineas de dos Archivo .txt

[wcbs]

Ok..
mas o menos es la idea, pero mira en esta forma tienen cada archivos los números,
------------------------------------------
1.000000
0.000000
12
1020.000000 <------- Esta es una de la linea
393.701508 <-------- Esta es la otra a mostrar
1456
0
0.000000
0.000000
0
401.700012
363.350006
92
0
0.000000
0.000000
0
72.699997
56.099998
44
----------------------------------------
La cuarta y quinta linea son las que quiero que me muestre el programa, por ejemplo, un archivo se llama C2006.DAT y el Otro CR.DAT ambos aunque son .dat son de texto, en cada uno los números varían pero tiene las lineas iguales, como te explico mas arriba ya puedo leer un archive, pero quiero leer los dos archivos en 4 campos del del programa....

[ecfisa]

Empezado por wcbs

La cuarta y quinta linea son las que quiero que me muestre el programa

Hola wcbs.

Me parece que te estas complicando con algo que es muy simple.

Un ejemplo:

Código Delphi [-]
var
  linea4, linea5: string;
begin
  with TStringList.Create do
  try
    LoadFromFile('C:\RUTA\C2006.DAT');
    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

Saludos.

[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 Notevi]

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 Notevi]

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 Notevi]

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