Pascal/Delphi Pascal, Fazer um file.

[TheMajor]

Boa noite, eu possuo um file linkado a meu codigo que armazena matriculas e etc.

gostaria de saber como fazer meu file retornar a ultima matricula que foi cadastrada, para assim eu comandar que ele adicione +1 e faça a proxima matricula.

[Simon Viegas]

Olá @TheMajor.

 

Para saber a última matricula utilizada, vai depender de como você armazenou as matrículas no arquivo. Supondo que sempre inseriu em ordem, então a última matrícula vai está na última posição. Basta lê-lo.

 

Para posicionar o arquivo na última posição, poderá utilizar o comando Seek().

Algo como:

Seek(f, FileSize(f)-1); //posciona o ponteiro antes da última posição

Ou seja, ao ler a linha vai ler o último registro. Daí pega a matrícula que está lá e gera a nova matrícula a partir desse dado.

 

Para escrever no final (após o último):

Seek(f, FileSize(f)); //posciona o ponteiro após a última posição (final)

 

No aguardo.