Receber INPUTQUERY apenas numeros !!

Delphi

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


Deusem

Deusem

Curtidas 0

Respostas

Aroldo Zanela

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

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.


GOSTEI 0
POSTAR