Programación General > Delphi

 Ficheros Secuenciales

<< < (2/2)

Alpha_:

--- Cita de: "Enko" ---
--- Cita de: "Alpha_" --- Pascal no la tiene.

Delphi, sinceramente no recuerdo. No he terminado de explorarlo en tooooooooooooooda su extensión.

Jejej, saludos.
--- Fin de la cita ---
Tanto pascal como object pascal tienen Append.
--- Fin de la cita ---
:o

Ya mismo estoy revisando TOOOOOOOOODOS mis libros.

Isnel:
Prueba así

var

Agenda : TipoListin;
BackupName: string;
F: File of TipoListin;

begin
  if SaveDialog1.Execute then
     begin
       AssignFile(F, SaveDialog1.FileName);
       if FileExists(SaveDialog1.FileName) then
          Reset(F)     {Abre F para modificar}
       else
         begin
          ReWrite(F);    {Crea F nuevo}
         end;
      Agenda.Nom:=TxtNombre.Text;
      Agenda.Ape2:=TxtApellido.Text;
      Agenda.Telefono:=TxtTfno.Text;
      Seek(F, FileSize(F));           {Se ubica al final del archivo para adicionar un nuevo registro}
      Write(F, Agenda);               {Escribe el nuevo registro}
      CloseFile(F);
    end;
end;

Navegación

[0] Índice de Mensajes

[*] Página Anterior