F�rum so aceitar numero no edit #397026

10/03/2011

Delphi

como fa�o para que so aceite numero no edit
se for salvar letra mostre um chowmessage ('so aceita numero')

Alessandra

Curtir t�pico

+ 0

Responder

Post mais votado

10/03/2011

Utilize esta rotina

function  Ret_Numero(Key: Char; Texto: string; EhDecimal: Boolean = False): Char; 
begin 
  if  not EhDecimal then

    begin

      { Chr(8) = Back Space }

      if  not ( Key in ['0'..'9', Chr(8)] ) then

          Key := #0

      

    end

  else

    begin

      if  Key = #46 then

          Key := DecimalSeparator

      ;

 
      if  not ( Key in ['0'..'9', Chr(8), DecimalSeparator] ) then

          Key := #0

      else

        if  ( Key = DecimalSeparator ) and ( Pos( Key, Texto ) > 0 ) then

            Key := #0

        ;

      ;

    end

  ;

 
  Result := Key;

end;

Onde e como chamar:

{ Evento OnKeyPress do seu Edit }
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    Key := Ret_Numero( Key, Edit1.Text );
end;

Espero ter colaborado.

Wilson Junior

Responder

Gostei + 1

Mais Posts

10/03/2011

Marco Salles

Geralmente se faz isto utilizando o OnKeyPress do Edit.. Testando o Key e abortando , ou mostrado uma mensagem caso o valor dele n�o seje numerico

Responder

Gostei + 0

10/03/2011

Alessandra

eu gostaria de fazer com que
quando clicase no bot�o salvar ela aparecesse a mensagem ('aceita apenas numero')
se eu for colocar com o OnKeyPress ele altomaticamen aparece a mensagem

Responder

Gostei + 0

10/03/2011

Wilson Junior

Para aparecer a mensagem ao estiver digitando, fa�a:


{ Evento OnKeyPress do seu Edit }
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Key := Ret_Numero( Key, Edit1.Text );
  if  Key = #0 then
      ShowMessage('Aceita apenas n�meros')
  ;
end;

Espero ter colaborado.

Responder

Gostei + 0

10/03/2011

Alessandra

se eu quizer que uma string so receba valor numerico? cmo fa�o?

Responder

Gostei + 0

10/03/2011

Marco Salles

se eu quizer que uma string so receba valor numerico? cmo fa�o?

bem , n�o conhe�o ou n�o estou lembrando de nada Nativo do Delphi que se possa utilizar ent�o tente o m�todo abaixo

procedure TForm1.Button2Click(Sender: TObject);
var
s:String;
i:integer;
begin
s:='';
  for I := 1 to length(edit1.Text) do
    if CharInSet(edit1.Text[i],['0'..'9']) then
         s:=s+edit1.Text[i];
  showmessage(s);
end;

Responder

Gostei + 0

30/05/2013

Jos�

Este t�pico esta sendo fechado por inatividade. Se necess�rio, sinalizar para que seja reaberto ou abrir um novo.

Responder

Gostei + 0

03/06/2013

Guilherme Wiethaus

Est� correto o que nosso amigo acima falou e em muito eu utilizo estas linhas b�sicas de programa��o...

...ou pode-se utilizar tamb�m componentes gratuitos e muito bom que vai te atender neste quesito. O JCL/JVCL (Project Jedi Components). Utilize o JvValidateEdit que possui o que procura com outras caracter�sticas e funcionalidades interessantes.

Abra�os

Responder

Gostei + 0

07/06/2013

Rafael Cruz

eu informo somente isso no evento keypress aceito somente numeros, backspace e enter

if not (key in [0..9,#8, #13]) then key := #0;

Responder

Gostei + 0

08/06/2013

Marco Salles

eu informo somente isso no evento keypress aceito somente numeros, backspace e enter

if not (key in [0..9,#8, #13]) then key := #0;

Veja ela n�o quer utilizar o evento

eu gostaria de fazer com que
quando clicase no bot�o salvar ela aparecesse a mensagem (aceita apenas numero)
se eu for colocar com o OnKeyPress ele altomaticamen aparece a mensagem

entende ???

Responder

Gostei + 0

08/06/2013

Rafael Cruz

caso ela clique no bot�o e no edit tenha letras da uma mensagem � isso ?

se for tenho uma fun��o que pode ajudar eu acho

Function SoNumero(STR : String) : String;
// Filtra todos os numeros de uma string
var
Ind : Integer;
TmpRet : String;
begin
TmpRet := ;
for Ind := 1 to Length(STR) do
begin
if (Copy(STR,Ind,1) = 1) or (Copy(STR,Ind,1) = 2) or (Copy(STR,Ind,1) = 3) or (Copy(STR,Ind,1) = 4) or
(Copy(STR,Ind,1) = 5) or (Copy(STR,Ind,1) = 6) or (Copy(STR,Ind,1) = 7) or
(Copy(STR,Ind,1) = 8) or (Copy(STR,Ind,1) = 9) or (Copy(STR,Ind,1) = 0) then
begin
TmpRet := TmpRet + Copy(STR, Ind, 1);
end;
end;
Result := TmpRet;
end;

no click do botao pode colocar

if (length(edit1.text)) (length(sonumero(edit1.text))) then mensagem

Mais ai me pergunto.. se � um campo que s� aceita gravar numero, pq fazer deixar o usu�rio digitar letra clicar no salvar e ter que voltar no edit corrigir pra salvar de novo.

Responder

Gostei + 0