Dicas Delphi – Criar um arquivo texto

Veja abaixo os passos básicos para criação de arquivos texto:

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;

Take care

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s