Salvar dados de uma tabela em arquivo

20/02/2003

0

Ola amigos,

Gostaria de Saber qual a rotina e componentes devo usar para salvar dados de uma tabela em um arquivo.* , e também para abrir o mesmo.

Se alguém puder ajudar , desde ja obrigado.

:roll: :roll: :roll:


Anonymous

Anonymous

Responder

Posts

20/02/2003

Anonymous

Para salvar os dados num arquivo.*, primeiro vc deve escolher se será um arquivo texto ou um arquivo binário.
Eu recomendaria um arquio binario.

Crie uma variavel FILE.
Ex:
Var
Arq : FILE;

Voce deve associar essa variavel com o nome do arquivo, atraves da funcao AssignFile.
Ex:
AssignFile(Arq, ´C:\Teste\Teste.dat´);

A seguir você deve abrir o arquivo para escrita (ou criá-lo, caso ele ñão exista). Ambos os casos podem ser resolvidos através da funcao Rewrite.

Rewrite (Arq);

Use a função Write para escrever no arquivo qualquer dado

Ex:
Write (Arq, <Campo>);
No lugar de <campo>, coloque o valor do campo da tabela.

Pode usar para escrever qualquer tipo de dado (inteiro, string, etc...)

Se quiser ler o arquivo, ao invés do Rewrite, use Reset.
Reset(Arq);

Para ler, use Read;
Read(Arq,Valor);

Os dados estarao no arquivo na ordem que voce pos, entao vc tem q saber qual a ´estrutura´ dele.
Por exemplo, se voce gravou um campo nome e depois um campo idade, abra o arquivo para leitura, leia o nome e em seguida a idade.
Tambem dah para ler fora de ordem, mas comece tentando fgazer assim.

Naum esqueca de fechar o arquivo quando terminar:
CloseFile (Arq);
Naum tenho certeza se eh CloseFile ou simplesmente Close, ma eh soh vc tentar.


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar