terça-feira, 24 de novembro de 2009

Ler e escrever arquivos texto no Delphi

//Rotina para escrever em um arquivo texto:

Var

F:TextFile;

Begin

AssignFile(f,'c:\arquivo_qualquer.txt');

Rewrite(f); //abre o arquivo para escrita

Writeln(f,'Dúvidas de Programação'); escreve no arquivo e desce uma linha

Write(f,'duvidasdeprogramacao.blogspot.com'); //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); //lê do arquivo e desce uma linha. O conteúdo lido é transferido para a variável linha

Memo1.lines.add(linha); //adiciona a um campo Memo

End;

Closefile(f);

end;

4 comentários:

  1. Olá amigo blogueiro, também tenho um blog, e desenvolvi uma ferramenta para postar os códigos delphi de forma mais elegante.
    Se tiver interesse da uma olhada no meu blog que tem um link para baixar a ferramente com código fonte.

    http://dsutil.blogspot.com/2009/11/convertendo-codigo-delphi-para-html.html

    Abraço!

    ResponderExcluir
  2. Ola muito bom teu blog dicas interessantes

    ResponderExcluir
  3. Valeu! Obrigado pela visita, mas estou sem tempo para publicar...Assim que puder colocarei mais dicas!
    Abraço!

    ResponderExcluir

Obrigado pela participação. Continue visitando Dúvidas de Programação - Programming Doubts

Links

Related Posts with Thumbnails