abrir e deletar

[nolfolk 0]

Quero abrir um arquivo txt e deletar seu conteudo sem deletar o arquivo.(a não ser que delete o arquivo e crie ele denovo...) Como faço?

[WiCkEd 0]

Var     arquivo: textfile;begin   assignfile(arquivo,'C:\endereco\arquivo.txt');   rewrite(Arquivo);    closefile(arquivo);end;

[nolfolk 0]

Muito obrigado, assim que eu arrumar o meu computador (queimou a fonte <_< ) eu testo :D vlw msmo! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif