No modo debug não está lendo o IF

05/08/2022

6

Saudações senhores.
Estou fazendo um curso onde estou na parte da tela de item
bom... estou com problema que na hora que rodo o programa ele está literalmente pulando o IF

if not (CharInSet(Key,['0'..'9',#8])) then
key :=#0;

if key=#13 then Ele pula e vai para o end;
begin
qryCod.Close;
qryCod.Params[0].AsInteger:=StrToInt(edCod.Text);
qryCod.Open;
end;

alguém poderia me ajudar?, desde já ficarei grato :)
João

João

Responder

Posts

09/08/2022

Lucas Santato

Você está passando o Key := #0, por isso ele não entra no if, porque o if verifica se é #13, mas vc passou o valor de #0 por isso nunca vai entrar nesse if, é só alterar a ordem dos ifs.

O código teria que ficar assim.

if key = #13 then
begin
  ShowMessage('Enter Pressionado');
end;

if not (CharInSet(Key,['0'..'9',#8])) then
begin
  key :=#0;
end;
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar