Receber INPUTQUERY apenas numeros !!
Tenho uma INPUTQUERY e gostaria que ela so recebece numeros como faço ?? segue o q estou fazendo...
nome1:string;
if inputquery(´Pesquisa´,´Número da Empresa => ´,nome1) then
procura:=dados.dados.Findkey([nome1]);
agradeco
nome1:string;
if inputquery(´Pesquisa´,´Número da Empresa => ´,nome1) then
procura:=dados.dados.Findkey([nome1]);
agradeco
Deusem
Curtidas 0
Respostas
Aroldo Zanela
21/05/2003
Tenho uma INPUTQUERY e gostaria que ela so recebece numeros como faço ?? segue o q estou fazendo...
nome1:string;
if inputquery(´Pesquisa´,´Número da Empresa => ´,nome1) then
procura:=dados.dados.Findkey([nome1]);
agradeco
Uma forma:
function TForm1.IsDigit(Valor: String): Boolean; var nI, nX: Integer; begin nX := 0; For nI := 1 to Length(Valor) do if not (Valor[nI] in [´0´..´9´]) then Inc(nX); Result := nX = 0; end; procedure TForm1.Button1Click(Sender: TObject); var a: String; begin if inputquery(´Pesquisa´,´Número da Empresa => ´,nome1) then if IsDigit(nome1) then procura:=dados.dados.Findkey([nome1]); end;
GOSTEI 0
Aroldo Zanela
21/05/2003
Desculpe, você deve clonar a inputquery que está na unit dialogs e fazer essa alteração. (Troque o edit por maskedit e coloque a máscara).
Se não conseguir me avise.
Se não conseguir me avise.
GOSTEI 0