Leer 4 Lineas de dos Archivo .txt

[wcbs]

Hola a los miembros de este foro

soy nuevo por acá y también en el mundo de delphi, yo estoy tratando de hacer una aplicación que al
Presionar la tecla F6 del teclado me cargue la aplicación y me leea 4 lineas de dos archivo de texto.txt,
pero con los ejemplos que e encontrado, solo puedo leer una linea pero no e podido lograr que me muestre
la información de las demás, los dos archivos de texto lo que tienen son números y quiero que al ejecutar
la aplicación me muestro los números que están en la linea que son la tercera y quinta linea de cada archivo,
me gustaria si es posible que me dieran una mano para hacer esta aplicacion.

de antemano les doy las gracias....

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración


¿Y tu código?, deja que lo veamos para ayudarte, que no somos adivinos

[wcbs]

Gracias Casimiro Notevi
por tu pronta repuesta y también por darme la bienvenida al foro, te comento que ya e logrado ver dos de las lineas
pero sigo haciendo pruebas, me falta ver como hago para llamar el otro archivo y presentarlo en dos Tedit mas,

esto es lo que llevo asta ahora....
-----------------------------------------

Código Delphi [-]
unit Metros; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 
 
type 
  TForm1 = class(TForm) 
    Label1: TLabel; 
    Edit1: TEdit; 
    Button1: TButton; 
    Edit2: TEdit; 
    Label2: TLabel; 
    Button2: TButton; 
    Label3: TLabel; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
  Datos: TextFile; 
  TS: TStrings; 
  TSA: TStrings; 
  Linea: String; 
  NumLinea: integer; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
AssignFile(Datos,'C:\Games\BOOKS\C2006.DAT'); 
   Reset(Datos); 
   NumLinea := 0; 
   REPEAT 
 
        TS:= TStringList.Create; 
        Readln(Datos, Linea); 
        Inc(NumLinea); 
        UNTIL NumLinea = 4; 
        TS.Clear; 
        ExtractStrings(['|'], [], PChar(Linea), TS); 
        Edit1.Text:= TS.Text; 
   REPEAT 
        TSA:= TStringList.Create; 
        Readln(Datos, Linea); 
        Inc(NumLinea); 
        UNTIL NumLinea = 5; 
        TSA.Clear; 
        ExtractStrings(['|'], [], PChar(Linea), TSA); 
        Edit2.Text:= TSA.Text; 
 
      CloseFile(Datos); 
 
   end; 
    procedure TForm1.Button2Click(Sender: TObject); 
begin 
close; 
end; 
 
end.

--------------------------------------------------------------
todavía en este no tengo agregado la forma de ejecutar al presionar la tecla F6 del teclado, porque voy probando
en otro archivo y lo que me sale bien lo paso a este, como veras es cosa de principiante, pero con animo de ir
aprendiendo

Gracias...de nuevo y me dirás como mas ir adelantado

[Casimiro Notevi]

No he entendido exactamente lo que quieres hacer.

[wcbs]

Ok...Casimiro Notevi

Yo tengo dos archivos de datos que también son de texto, en la cuarta linea y quinta linea, tienen numero
yo quiero que al ejecutar la aplicación que estoy haciendo, me lea las lineas de los dos archivos y me muestre los números
que hay en esas lineas, ahora bien, ya e logrado ver de un archivo la 4 y 5 linea, pero no se como cargar el otro
archivo para en dos campos mas me muestre también la linea 4 y 5 de ese otro archivo,

la otra parte es hacer que cuando yo presione la tecla F6 se cargue esta aplicación y me muestre la información,
osea los números que hay en esas lineas.

no se si no me comprenderás mejor.

y Gracias de nuevo ya que me sorprende lo rápido que responde e intenta ayudarme también....

[Casimiro Notevi]

O sea, tienes 2 ficheros de texto iguales, y cada uno de ellos tienen las líneas 4 y 5 (que tienen números), pueden ser así:

bla, bla, bla, bla,
bla, bla, bla, bla,
bla, bla, bla, bla,
1,2,3,4,5,
6,7,8,9,0

Ambos son de ese tipo, ¿es así?

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