Salvar dados de uma tabela em arquivo

Delphi

20/02/2003

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

Curtidas 0

Respostas

Anonymous

Anonymous

20/02/2003

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.


GOSTEI 0
POSTAR