Pascal/Turbo Pascal - Meter un fichero en un array

   
Vista:

Meter un fichero en un array

Publicado por MAnuuu (10 intervenciones) el 13/08/2010 14:08:18
Hola a todos haber si me podriais ayudar, quiero meter una serie de ficheros en un array para ir almacenandolos me podriais decir como hacerlo? gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Meter un fichero en un array

Publicado por epayan (71 intervenciones) el 15/08/2010 19:03:31
type
tiporegistro=record;
dato:integer;
end;

var
contador:longint;
registro:tipoRegistro;
begin
contador:=1;
{aperturas el archivo}

{iniciasel ciclo de lectura}
while .not. eof(Fichero) do
begin
with Registro of
begin
Arreglo[Contador].Dato:=dato;
end;
inc(contador);
end;
end.

por asi ejmplificarlo, tendras que depurar detalles de registros, y de apertura de archivos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Meter un fichero en un array

Publicado por MAnuuu (10 intervenciones) el 16/08/2010 12:41:00
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar