Fórum Gerar arquivo texto #241782
06/07/2004
0
Vou receber do meu cliente um arquivo texto com os seguintes dados
codpedido, destinatario, endereço, numero, cep, estado, valor, data_pagamento.
Como posso fazer para ler e gravar corretamente?
Como poderei também gerar um arquivo texto para enviar ao cliente?
Guima001
Curtir tópico
+ 0Posts
06/07/2004
Reginaldo174
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
06/07/2004
Gandalf.nho
[url]http://delphi.icm.edu.pl/[/url]
Gostei + 0
07/07/2004
Guima001
Gostei + 0
07/10/2004
Flaviosan
Gandalf, Me explica uma coisa, qual a diferença de arquivo texto fixo e delimitado?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)