Código Deletefile

[mateus13m]

Olá. Estou tentando usar o código deletefile mais estou tendo uma pequena dificuldade. Estou tentando fazer com que quando a pessoa clique no botão, o do arquivo (seu diretório escrito em um Edit) seja apagado. Estou colocando este código:

If DeleteFile(Edit1.text) then;
Showmessage('Arquivo deletado!');
If not DeleteFile(Edit1.text) then;
Showmessage('Arquivo não deletado!');

Só que o problema, é que quando deleta, aparece as duas mensagens (Arquivo deletado e Arquivo não deletado), assim como quando não deleta. Como ajusto isso? Obrigado

[Mog.Lucas]

Simples, veja o porque:

If DeleteFile(Edit1.text) then // deleta arquivo (e um ; a mais - depois de then não tem ; )

Showmessage('Arquivo deletado!');

// Chegando nessa parte, o arquivo FOI DELETADO E NÃO EXISTE MAIS!

If not DeleteFile(Edit1.text) then // se não conseguiu deletar exibe mensagem

// (mas não conseguiu, porque o arquivo já foi deletado - ver acima)

// ps: tinha um ; aqui errado!

Showmessage('Arquivo não deletado!');

O correto seria:

If DeleteFile(Edit1.text) then
 Showmessage('Arquivo deletado!')
else
 Showmessage('Arquivo não deletado!');

Abraços!

[mateus13m]

Ah, sim. Obrigado amigo. Eu estava fazendo uma tempestade em um copo d'agua. /rs

Consegui fazer utilizando a sua dica. Obrigado mais uma vez. Pode dar resolvido ^^ Abraços!

[Mog.Lucas]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.