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:
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
Curtir tópico
+ 0
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.
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
Clique aqui para fazer login e interagir na Comunidade :)