criar arquivo TXT

[Jerfs 1]

estou usando o seguinte código:

 

AssignFile(G,nomeDoArquivo);

Rewrite(G);

Writeln(G,item);

CloseFile(G);

 

O delphi cria o arquivo, mas no diretório que está salvo o projeto, eu quero salvar num outro diretório, como eu faço?

[shini 318]

É so coloca o caminho que voce deseja

AssignFile(f,'C:\Teste\doc\arq.txt');

[Jerfs 1]

Tem jeito de eu saber qual é o caminho absoluto do executável, guardar numa variavel e depois concatenar com o nome do arquivo para salvar?

 

caminho := <caminho absoluto do executável >

assignFile(F,caminho + <nome do arquivo>

 

qual comando eu uso?