RE:Meter un fichero en un array
Gracias por tu respuesta pero llegue ya a una conclusion que es esta:
program MuestraParametros ;
var
i : Integer ;
texto: text;
linea: string;
begin
WriteLn ( ' Nombre del programa : ' , ParamStr ( 0 ) ) ;
for i :=1 to ParamCount do
begin
WriteLn ( 'Fichero ' , i , ': [ ' , ParamStr ( i ) , '] ' ) ;
assign(texto,paramstr(i));
reset(texto);
while not eof(texto) do
begin
while not eoln(texto) do
begin
readln(texto,linea);
writeln(linea);
end;
end;
close(texto);
end ;
end .
Con esto mediante linea de comandos metes todos los ficheros que quieras y se van qedando registrando en paramstr para usarlos mas tarde ya lo que pongo de writeln(linea) eso es cosa mia muestra el texto por pantalla y demas pero haciendo esto ya no tengo problema. Gracias por la respuesta y espero que esto sirva para alguien mas un saludo.