Erro Copyfile

[whell 0]

olá pessoal eu formatei acidentalmente meu computador e perdi algumas anotações importantes uma especie de relatório que eu fazia a cada projeto terminado no delphi

 

o problema é o seguinte estou usando o procedimento Copyfile (Cópia de arquivos)

a procedure é esta:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

no Desktop tem a pasta Script dentro dela tem outras SubPastas com os arquivos

no (PChar('C:\Script\Autokill\ai.kom'), Coloquei o diretório da Pasta e da Subpasta de onde irá copiar o arquivo;

no PChar(ComboBox1.text + '\Stage\AI\ai.kom'), false) then Coloquei onde o Aplicativo irá colar os arquivos retirados do primeiro diretório;

 

Meu problema é, O aplicativo não esta copiando mesmo com o Diretório correto ja testei de todas as formas e não está copiando o que pode ser '-'??

[~OwneR~ 8]

Acontece que o caminho do Desktop é C:\Documents and Settings\Nome do seu usuário\Desktop, logo o diretório está errado... O ai.kom está em C:\Documents and Settings\Nome do seu usuário\Desktop\Script\Autokill\ai.kom

Só uma coisinha, essa parte do ComboBox esá errada, já que se tiver mais de um item ele pegará todos os itens logo não dá certo, o certo seria ComboBox1.Items[ComboBox1.ItemIndex]

o/

[whell 0]

entendi o meu erro mas o do combobox não caiu a ficha ainda porque no meu antigo projeto eu fiz daquele jeito e copiou certinho (O que acontece?)

[~OwneR~ 8]

Os dois jeitos funcionam, mas é mais correto o que eu passei, já que a propriedade Text pode ser alterada (basta você escrever lá) e a items não (será considerado o último item selecionado).

Eu não consigo explicar isso direito =S

[Ryokusei 21]

Não entendi direito o problema, poderia explicar novamente?

[whell 0]

Uma duvida como faço para mensagem de erro aparecer só quando não for feito o procedimento? '-'

 

 

Resource(ComboBox1.Items [ComboBox1.ItemIndex] + '\Stage\AI\ai.kom','aikom','KOM');

ProgressBar1.Position := +100;

ShowMessage('Erro ao Modificar,Tente Novamente!'); {Aparece primeiro}

ShowMessage('Auto Kill Ativado com Sucesso!'); {Logo em seguida aparece isto}

 

com end else não funciona porque?

[Ryokusei 21]

Uma duvida como faço para mensagem de erro aparecer só quando não for feito o procedimento? '-'

 

 

Resource(ComboBox1.Items [ComboBox1.ItemIndex] + '\Stage\AI\ai.kom','aikom','KOM');

ProgressBar1.Position := +100;

ShowMessage('Erro ao Modificar,Tente Novamente!'); {Aparece primeiro}

ShowMessage('Auto Kill Ativado com Sucesso!'); {Logo em seguida aparece isto}

 

com end else não funciona porque?

 

Se que procedimento não for feito? O "Resource"?

[whell 0]

isso

caso o procedimento resource não for feito irá aparecer uma mensagem de erro

exemplo

Showmessage('Erro ao modificar');

 

quando o procedimento é feito aparece sucesso

ali eu coloquei

ShowMessage('Erro ao Modificar,Tente Novamente!'); {Aparece primeiro}

ShowMessage('Auto Kill Ativado com Sucesso!'); {Logo em seguida aparece isto}

 

é porque aparece 2 mensagens seguidas eu quero separá-las a primeira no caso de erro e a segunda no caso de sucesso

Nesse esquema aqui olha

 

begin

if not CopyFile(PChar('\ai.kom'), PChar('C:\Level Up! Games\Grand Chase Season 2\Stage\AI\ai.kom'), false) then

begin

ShowMessage('Erro ao Modificar,Tente Novamente!') end //Mensagem no caso de ERRO

else

ShowMessage('Auto Kill Ativado com Sucesso!'); //Mensagem no Caso de Sucesso

end;

 

entendeu?

[~OwneR~ 8]

É porque isso é uma Procedure e não Function, então quando ela é feita não gera um resultado... Aí não pode usar if then com ela =|

E não precisa se preocupar com isso, porque quando dá falha quando vai salvar o arquivo ele gera uma mensagem e aborta aí só mostra o erro e não mostra a mensagem de sucesso =)

[whell 0]

então posso deixar só a mensagem de sucesso?

como faço a function? mas sem perder essa forma

[~OwneR~ 8]

então posso deixar só a mensagem de sucesso?

Que tal tirar a mensagem de erro?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

como faço a function? mas sem perder essa forma

E não, não dá pra fazer Function porque SaveToFile é uma procedure...