Fórum Criar arquivo Texto #286977
05/07/2005
0
Como eu faço para criar um arquivo texto com um nome qualquer e selecionar o caminho onde ele será criado?
Valew
Valew
Seu_madruga
Curtir tópico
+ 0
Responder
Posts
05/07/2005
Marcio.theis
Uma forma simples de se fazer...
declare uma variável do tipo TextFile
var
txt: TextFile;
begin
AssignFile(txt,caminhoOndeSalvaroArquivo);
Rewrite(txt);
para escrever pode utilizar o Writeln(txt,texto); ou o Write(txt,texto);
e no final de um CloseFile(txt);
Responder
Gostei + 0
07/07/2005
Seu_madruga
Estranho, quando eu coloco AssignFile(Variável, Caminho), este caminho já tem que existir. Tipo, se o caminho for ´C:\Texto.txt´, este arquivo já tem que estar criado e eu não quero isso, eu quero criar um arquivo texto do zero e passar o Nome e o Caminho dele.
Responder
Gostei + 0
07/07/2005
Marcio.theis
Se quiser testar segue um pequeno exemplo...
mas no caso se o arquivo não existe ele mesmo assim cria o mesmo.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
txt: TextFile;
begin
AssignFile(txt,´c:\Texto.txt´);
Rewrite(txt);
Writeln(txt,´texto1´);
Writeln(txt,´texto2´);
Writeln(txt,´texto3´);
CloseFile(txt);
end;mas no caso se o arquivo não existe ele mesmo assim cria o mesmo.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)