ayuda con fichero de texto
Publicado por tugatime (44 intervenciones) el 10/01/2013 16:24:51
Tengo el siguiente procedimiento:
Lo que este procedimiento tiene que hacer es lo siguiente: si "mi_cesta[0].en_cesta=true" tiene que escribir en un fichero de texto llamado "indice.txt" el nombre de la cesta (su nombre es Nfichero). La primera ves que se cumpla esto "mi_cesta[0].en_cesta=true" se supone que se debe crear un fichero de texto llamado "indice.txt" y se escribe en él el nombre de la cesta (Nfichero).
El problema esta cuando es la 2º vez, o la 3º vez, etc. que hago esto. Porque cuando es la 2º vez, o la 3º vez, etc. lo que pasa es que el nombre que esta alla guardado se sustituye por el nuevo nombre, pero esto no es lo que quiero.
Lo que quiero es que el nombre antiguo se quede y el nuevo nombre se escribe debajo.
Alguien sabe que tengo que cambiar o que tengo que añadir a este procedimiento para que no se sustituya el nombre antiguo por el nuevo, sino que solo se añada el nuevo nombre manteniendo los 2. ??
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure fichero_guardar_pedidos(var mi_cesta: cesta; var Nfichero: string);
var
fichero: text;begin
assign(fichero, 'indice.txt');
rewrite(fichero);
if (mi_cesta[0].en_cesta=true) then
writeln(fichero, Nfichero);
close(fichero);
end;
Lo que este procedimiento tiene que hacer es lo siguiente: si "mi_cesta[0].en_cesta=true" tiene que escribir en un fichero de texto llamado "indice.txt" el nombre de la cesta (su nombre es Nfichero). La primera ves que se cumpla esto "mi_cesta[0].en_cesta=true" se supone que se debe crear un fichero de texto llamado "indice.txt" y se escribe en él el nombre de la cesta (Nfichero).
El problema esta cuando es la 2º vez, o la 3º vez, etc. que hago esto. Porque cuando es la 2º vez, o la 3º vez, etc. lo que pasa es que el nombre que esta alla guardado se sustituye por el nuevo nombre, pero esto no es lo que quiero.
Lo que quiero es que el nombre antiguo se quede y el nuevo nombre se escribe debajo.
Alguien sabe que tengo que cambiar o que tengo que añadir a este procedimiento para que no se sustituya el nombre antiguo por el nuevo, sino que solo se añada el nuevo nombre manteniendo los 2. ??
Valora esta pregunta
0