Como mover o ponteiro de registro em arquivos TXT??

[BHAMF]

Como posso mover o ponteiro do arquivo em Pascal?? 

[thoga31]

seek(ficheiro, posição)

Sendo posição 0-based.

Edited December 25, 2016 at 10:10 PM by thoga31

[BHAMF]

thoga31, tens certeza? Pelo que li, seek, é para arquivos binários e não funciona em arquivos textos! 

[thoga31]

Um arquivo de texto é um caso especial de um arquivo binário. Essencialmente, é um ficheiro de caracteres.

Portanto, em vez abrires o ficheiro usando uma stream do tipo Text, usas uma stream do tipo File of Char:

var
  f : file of char;
  ch : char;

begin
  Assign(f, FILE_NAME);
  Reset(f);
  while not eof(f) do begin
    read(f, ch);
    // piu piu...
    Seek(f, POSITION);
    // piu piu...
  end;
  CloseFile(f);
end;

Cumprimentos 😉

Edited January 5, 2017 at 06:54 PM by thoga31

[BHAMF]

Pessoal, temo ter descoberto uma maneira... Comunico em breve...

B.H.A.M.F.

Brasil, 17:31 | 28/12/2018

[passarito]

Então que descoberta foi essa?

[BHAMF]

1 hora atrás, passarito disse:

Então que descoberta foi essa?

Bom, ainda não testei o método de escrever, mas referente à leitura de um arquivo TXT, descobri uma maneira de ler determinada linha... Por enquanto estou sem tempo para procurar nos meus códigos, mas em breve postarei aqui.

 

B.H.A.M.F. 

Brasil, 02/01/2019 | 07:46