ActiveDelphi

[device]

Olá pessoal.
Bom dia.

Vi isso no fórum, mas ao compilar, uma msg diz que não consegue localizar o arquivo .exe.

O que pode estar ocorrendo de errado aqui??

A msg é essa: Could not find program... C:\path........prog.exe
(não está conseguindo encontrar o arquivo exe).

Retirei o código do enevto onKeyPress do Edit e compilou.
Então aqui encontrou o path do exe.
Nessa boiei.

Podem ajudar?

Código:

if ((Key = ',') and (Pos(',', TEdit(Sender).Text) < 1)) // vírgula, apenas uma
or (Key in ['0'..'9']) // números
or (Key = Char(VK_BACK)) // backspace
or ((Key in ['-', '+']) and (TEdit(Sender).SelStart = 0)) // sinal de menos ou mais, somente no começo
then
Exit;

Key := #0;

[AndersonWorkInfo]

Já tentou compilar agora depois de ter compilado pela primeira vez sem o código?
Tenta ai.
QQ coisa fala ai.
Abraço.
_________________
COLOQUE SEMPRE [RESOLVIDO] NO SEU TÓPICO

[device]

Olá AndersonWorkInfo
Bom dia.

Como estava dando erro, como disse, retirei o código e compilou sem problemas.
Isso quer dizer que não há problemas no Delphi.

O que poderia ser? Alguma outra declaração que falta em uses?

Agradeço a resposta e ajuda.

[marcieldeg]

Provavelmente seu antivírus está apagando o executável. Tente desabilitar o antivírus e tentar compilar novamente.

[claudio.ferreira]

destesto programas anti-virus (rs)
_________________
Sistema SNGPC para farmácias
http://www.cmasistemas.com.br
Rastreabilidade de Medicamentos
https://www.sncm.com.br
Soluções em Delphi
https://delphisolutions.wordpress.com/
.
"E não sabendo que era impossível, foi lá e fez"
Mark Twain

[device]

Olá pessoal.
Agradeço as respostas.
Não é vírus mesmo e nem tampouco o antivírus que está afetando.
Foz o teste com ele d
desabilitado e esse código dá essa msg de erro que n;ao consegue encontrar o executável.

Retirando esse código do evento OnKeyPress do Edit, compila normal e mesmo a aplicação que estou fazendo roda normalmente.

Testei em outro PC que não está conectado à internet e não tem o Avast nem instalado. Dá o mesmo erro.

Alguém teria outro código para o campo Edit só aceitar floats?
Nção gosto de usar campos Edit com máscaras pq se não completar as casas definidas na máscara, ele reclama.

O que preciso é da seguinte forma.
1º Só aceitar números
2º Ter 3 casas (Ex 3,7), (4,2) etc
Se um campo alculado tiver + de
3º Se digitar só o nº 3, por exemplo e dar enter para sair do campo, ele completa com ,0 Então ficaria 3,0

Agradeço a ajuda

[claudio.ferreira]

Pra te ajudar, primeira pergunta :

- Ao compilar ou ao executar ? que da a mensagem "Could not find program... C:\path........prog.exe "

Prog.exe é o teu executável ou é algum programa que a IDE está procurando ?

- Após compilar, não execute, verifique se o executável está no lugar que deveria estar.
_________________
Sistema SNGPC para farmácias
http://www.cmasistemas.com.br
Rastreabilidade de Medicamentos
https://www.sncm.com.br
Soluções em Delphi
https://delphisolutions.wordpress.com/
.
"E não sabendo que era impossível, foi lá e fez"
Mark Twain

[pedro.olimpio]

Deixa seu código de validação e faz um build no projeto. Project -> Build...

[pedro.olimpio]

Deixa seu código de validação e faz um build no projeto. Project -> Build...

[device]

Olá pessoal.

Agradeço as respostas.

Já havia feito isso... Project Build.

Ao compilar a msg diz que não consegue encontrar o Projeto.
Se eu retirar o código do Evento OnKeyPress do Edit, compila.
Nunca vi esse tipo de erro antes.

Outros códigos que tenho aqui, funcionam normalmente.
Acabei de formatar meu noteboock e instalei nele o Delphi7.
Sem antivírus, ou qq outro programa.

Deu o meso erro.

QQ ajuda é bem vinda