No modo debug n�o est� lendo o IF

05/08/2022

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

Curtir t�pico + 1

Responder

Post mais votado

09/08/2022

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;

Lucas Santato

Responder

Gostei + 1

Mais Posts

10/09/2022

Jo�o

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

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

Ok, irei tentar aqui muito obrigado!!!

Responder

Gostei + 1

09/10/2022

Jo�o

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

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

Beleza cara, valeu, irei tentar aqui

Responder

Gostei + 1