Programación General > Pascal

 Crear Un Archivo

(1/1)

darmigmar:
Hola, qué tal? Yo de nuevo, molestando. El punto es que quería saber como crear un archivo nuevo sin que se sobreescriba cada vez que ejecuto o corro el programa. A los que lo sepan (seguramente todos) les agradecería que me dieran una mano. Gracias.

Amilius:
Si no quieres sobreescribir un archivo ya existente con FileExists verifica si existe primero y si es así agrega los nuevos datos al final del archivo usando reset y seek (archivos binarios) o Append (archivos de texto) en lugar de usar el rewrite.

darmigmar:
Muchísimas gracias.

Enko:
Tambien puedes desactivar temporalmente la verificacion de la entrada/salida y comprobar tu mismo los errores con IOResult.

Para desactivar la verificacion de I/O: {$I-}
Para activar la verificacion de I/O: {$I+}
Nota que {$Letra,+/-} son directivas de compilacion y no comentarios
y luego tenes a la funcion IOResult que es distinto de 0 si algo paso mal

Lo que hace este codigo es resetear  un Archivo de  NOmbre Archivo, si este no existe crea uno nuevo.


--- Código: Text ---  Assign(Archivo, 'Archivo.dat');  {$I-}    Reset(Archivo);    if IOResult <> 0 then {archivo no existe}    begin      WriteLn('No se encuentra el archivo');      WriteLn('Desea crear uno nuevo');      res := ReadKey;      if (res = 's') or (res = 'S') then ReWrite(Archivo);    end;  {$I+}end;  
La funcion IOResult devuelve varios valores además de cero con distintos mensajes de error, lo que si, es que no tengo ahora la tabla de los errores. <_<

Navegación

[0] Índice de Mensajes