Pascal/Turbo Pascal - ayuda con fichero de texto

   
Vista:

ayuda con fichero de texto

Publicado por tugatime (44 intervenciones) el 10/01/2013 16:24:51
Tengo el siguiente procedimiento:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda con fichero de texto

Publicado por ramon (2072 intervenciones) el 10/01/2013 18:16:30
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
{Comprueba esto}
 
 
 procedure fichero_guardar_pedidos(var mi_cesta: cesta; var Nfichero: string);
  var
    fichero : text;
    begin
      assign(fichero, 'indice.txt');
  {$I-} reset(fichero); {$I+} {para comprobacion de si esta el fichero}
     if ioresult <> 0 then
     begin
          rewrite(fichero);
          if (mi_cesta[0].en_cesta=true) then
          writeln(fichero, Nfichero);
          close(fichero);
     end
  else
     begin
         Append(fichero);  {abre para a¤adir}
         if (mi_cesta[0].en_cesta=true) then
         writeln(fichero, Nfichero);
         close(fichero);
     end;
  end;
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

ayuda con fichero de texto

Publicado por tugatime (44 intervenciones) el 10/01/2013 18:39:01
Gracias por la ayuda amigo. Ahora mismo voy a ve si termino mi programa. Muchas gracias.
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