Validar InputQuery para receber apenas números?
Bom dia
Alguém sabe como validar o conteúdo de um InputQuery para que o mesmo aceite apenas números? Estou usando o evento no click do titulo do grid.
agradeço
Alguém sabe como validar o conteúdo de um InputQuery para que o mesmo aceite apenas números? Estou usando o evento no click do titulo do grid.
agradeço
procedure TfrmMonitoraPDBO.dbgClienteAplicacaoTitleClick(Column: TColumn);
var
valor: string;
const
teclasDec = ['0'..'9',',',#8, #13];
begin
valor := '0';
InputQuery('Pesquisa:', 'Informe o código para pesquisa:', valor);
if valor <> '' then
begin
//verifica se foi adicionado um número
if not (Key in teclasDec) then
begin
Key := #0;
MessageDlg('Campo Numérico!', mtError, [mbOK], 0);
end;
end;
end;
Itamar Souza
Curtidas 0
Respostas
Marcos Saffran
13/05/2014
Olá Itamar,
verifique o código abaixo:
verifique o código abaixo:
var
valor: string;
controle: boolean;
const
teclasDec = ['0'..'9',',',#8, #13];
begin
controle := False;
valor := '0';
while controle = False do
begin
InputQuery('Pesquisa:', 'Informe o código para pesquisa:', valor);
try
StrToInt(valor);
controle := true;
except
controle := false;
end;
end;GOSTEI 0
Itamar Souza
13/05/2014
Tudo certo!!
Agradeço a ajuda!!
Agradeço a ajuda!!
GOSTEI 0