Estructura para Tabla paradox

[ecfisa]

Hola tarco35.

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