Hola tarco35.
Cita:
Empezado por tarco35
...
Pero si quiero añadir, como tendría que hacerlo?... un seek al final de fichero??? o como.
|
Exáctamente, posicionándote al final del archivo.
Agregar un registro:
Código Delphi
[-]
Seek(FileReg, FileSize(FileReg));
Write(FileReg, Reg);
Leer último registro:
Código Delphi
[-]
Seek(FileReg, FileSize(FileReg)-1);
Read(FileReg, Reg);
Mostrar posición del registro actual:
Código Delphi
[-]
ShowMessage(Format('Posición actual en el archivo: %d', [FilePos(FileReg)]));
Saludos