problema con ficheros

liriko · #7 28-11-2005

Quizas no me haya explicado con claridad. Vamos a ver.
En el Programa tengo una opcion que es para Abrir un fichero.

Código Delphi [-] procedure TForm5.Button1Click(Sender: TObject);
 begin
    assignfile(Nuevo_fichero,edit1.Text);
    filemode:=2;
    reset(Nuevo_fichero);
    form5.Close;
 end;

Una vez abierto,tengo dos opciones, Visualizar o añadir datos.
Para visualizar uso dos botones (para ir hacia delante e ir hacia detras)

Código Delphi [-] procedure TForm4.BTB_AdelanteClick(Sender: TObject);
 begin
   //rewrite(nuevo_fichero);
   seek(nuevo_fichero,sum);
   read(nuevo_fichero,vagenda);
   LB_nombre.Caption:=vagenda.Nombre;
   LB_direccion.Caption:=vagenda.Direccion;
   LB_telefono.Caption:=vagenda.Telefono;
   sum:=sum+1;
   if eof(nuevo_fichero)=true then
     BTB_adelante.Visible:=false;
   btb_atras.Visible:=true;
 end;
  
 procedure TForm4.BTB_AtrasClick(Sender: TObject);
 begin
     seek(nuevo_fichero,filepos(nuevo_fichero)-2);
     read(nuevo_fichero,vagenda);
     LB_nombre.Caption:=vagenda.Nombre;
     LB_direccion.Caption:=vagenda.Direccion;
     LB_telefono.Caption:=vagenda.Telefono;
     btb_adelante.Visible:=true;
     sum:=sum-1;
     if (sum=1) then
       btb_atras.Visible:=false;
 end;

Siendo el valor de Sum siempre 0 cuando entramos en esta opcion.
Ahora necesito meter un registro, uso el siguiente codigo:

Código Delphi [-] procedure TForm2.BT_AceptarClick(Sender: TObject);
 begin
   vagenda.nombre:=TE_nombre.text;
   vagenda.direccion:=TE_direccion.text;
   vagenda.telefono:=TE_telefono.text;
   write(Nuevo_fichero,vagenda);
   showmessage('Alta realizada con exito');
   form2.doDestroy;
   form2.close;
 end;

Aqui es donde empiezan los problemas,ya que me deja meter los registros que yo quiera, pero para que lo haga sin sobreescribirme ninguno, tengo que irme a la opcion de cisualizar y mostrarlos todos hasta el final. Si empiezo a visualizar datos y paro en el registro numero 3 de 20 que tengo me va a sobreescribir el registro numero 3 por el que añada. La solucion es decirle que cada vez que quiera dar un alta se vaya al ultimo registro de todos, pero no hay manera de que me salga eso.
Espero esta vez haberme explicado con claridad y siento cualquier molestia ocasionada, llebo tan solo 2 semanas intentando aprender POO y para mi todo esto es muy nuevo(partiendo de la base que no e programado en mi vida).Salu2 y enhorabuena por esta Web, ya que contestais extremadamente rapido.