[DELPHI] CRIAR ARQUIVO DE TEXTO

procedure criaArquivoTexto (nomeDoArquivo: String);

var 

 arq: TextFile;

 linha: String;

begin

 AssignFile ( arq, nomeDoArquivo );

 Rewrite ( arq );

 WriteLn ( arq, "Seu texto aqui!" );

 CloseFile ( arq );

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】