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
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.