Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
program cambiar;
var
carpeta:file;
begin
chdir('c:\juegos'); {directorio raíz}
assign(carpeta,'soccer');
rename(carpeta,'futbol');
end.
procedure lee_fichero(nombre:string; VAR cuadros:Tcuadro);
var
fichero:Tfichero;
begin
assign(fichero, nombre);
reset(fichero);
read(fichero, cuadros);
writeln(cuadros.numcuadro);
writeln(cuadros.titulo);
writeln(cuadros.autor);
writeln(cuadros.precio:2:2);
close(fichero)
end;
procedure lee_fichero(nombre:string; VAR cuadros:Tcuadro);
var
fichero:Tfichero;
begin
assign(fichero, nombre);
reset(fichero);
read(fichero, cuadros);
imprime_cuadro(cuadros);
close(fichero)
end;
procedure graba_fichero(nombre:string; VAR cuadros:Tcuadro; ind:integer);
var
fichero:Tfichero;
begin
if ind=1 then
begin
assign (fichero, nombre);
rewrite(fichero)
end;
write(fichero, cuadros);
if ind=2 then
close(fichero);
end;Type
Tcoleccion = array[1..tamcoleccion] of Tcuadro
...
Var
todosloscuadros:Tcoleccion;procedure graba_fichero(nombre:string; todosloscuadros:Tcoleccion);
var
fichero:Tfichero;
begin
assign(fichero,nombre);
rewrite(fichero);
for i:=1 to tamcoleccion do
write(fichero,todosloscuadros[i]);
close(fichero);
end;
read(variable)
cantidad:=length (variable)
read(variable)
cantidad:=(length (variable)+1)/2
) en mi win98 y va bien.