Criar arquivo Texto

Delphi

05/07/2005

Como eu faço para criar um arquivo texto com um nome qualquer e selecionar o caminho onde ele será criado?
Valew


Seu_madruga

Seu_madruga

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

05/07/2005

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);



GOSTEI 0
Seu_madruga

Seu_madruga

05/07/2005

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.


GOSTEI 0
Marcio.theis

Marcio.theis

05/07/2005

Se quiser testar segue um pequeno exemplo...

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.


GOSTEI 0
POSTAR