Salvar arquivo em TXT
Oi Pessoal,
To precisando de uma ajudinha...
Preciso urgentemente salvar um alguns registros da minha tabela em .TXT. Que ferramenta do Delphi eu utilizo pra fazer isso e como eu faço?
Obrigada,
Paty
To precisando de uma ajudinha...
Preciso urgentemente salvar um alguns registros da minha tabela em .TXT. Que ferramenta do Delphi eu utilizo pra fazer isso e como eu faço?
Obrigada,
Paty
Tiquinha
Curtidas 0
Respostas
Reginaldo174
12/07/2004
Var
F:TextFile;
Begin
AssignFile(f,´c:\arquivo_qualquer.txt´);
Rewrite(f); //abre o arquivo para escrita
Writeln(f,´Testando´); escreve no arquivo e desce uma linha
Write(f,´Clube Delphi´); //escreve no arquivo sem descer a linha
Closefile(f); //fecha o handle de arquivo
End;
///Rotina para ler de um arquivo texto:
var
f:TextFile;
linha:String;
begin
AssignFile(f,´c:\arquivo_qualquer.txt´);
Reset(f); //abre o arquivo para leitura;
While not eof(f) do begin
Readln(f,linha); //le do arquivo e desce uma linha. O conteúdo lido
é transferido para a variável linha
Memo1.lines.add(linha);
End;
Closefile(f);
end;
F:TextFile;
Begin
AssignFile(f,´c:\arquivo_qualquer.txt´);
Rewrite(f); //abre o arquivo para escrita
Writeln(f,´Testando´); escreve no arquivo e desce uma linha
Write(f,´Clube Delphi´); //escreve no arquivo sem descer a linha
Closefile(f); //fecha o handle de arquivo
End;
///Rotina para ler de um arquivo texto:
var
f:TextFile;
linha:String;
begin
AssignFile(f,´c:\arquivo_qualquer.txt´);
Reset(f); //abre o arquivo para leitura;
While not eof(f) do begin
Readln(f,linha); //le do arquivo e desce uma linha. O conteúdo lido
é transferido para a variável linha
Memo1.lines.add(linha);
End;
Closefile(f);
end;
GOSTEI 0
Motta
12/07/2004
http://www.joaomorais.com.br/pascal/download.php?cat=101
dbfile, é meio tosco aviso
dbfile, é meio tosco aviso
GOSTEI 0
Paulo_amorim
12/07/2004
Olá
O jeito que o Reginaldo mostrou eh mais fácil, então esse outro jeito eh mais pra referência (futuras pesquisas, também)
Pode-se colocar os campos numa variável TStrings e fazer
Espero que ajude
Até+
O jeito que o Reginaldo mostrou eh mais fácil, então esse outro jeito eh mais pra referência (futuras pesquisas, também)
Pode-se colocar os campos numa variável TStrings e fazer
TStrings.SaveToFile( Path: String);
Espero que ajude
Até+
GOSTEI 0