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'); linea4 := Strings[3];
Linea5 := Strings[4]; finally
Free;
end;
ShowMessage(linea4+#10+linea5);
with TStringList.Create do
try
LoadFromFile('C:\RUTA\C2007.DAT'); linea4b := Strings[3];
Linea5b := Strings[4]; finally
Free;
end;
ShowMessage(linea4b+#10+linea5b);
ShowMessage(linea4+#10+linea5+#10+linea4b+#10+linea5b); end;