verificar se é numérico

01/02/2003

2

como verificar se o texto de um TEdit é número ou não?


Responder

Posts

01/02/2003

Anonymous

Se vc quer configurar o Edit p/ aceitar apenas nº então vai:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in[ ´0´..´9´, Chr(8)]) then Key := #0;
end;


Responder

01/02/2003

Anonymous

obrigado :o :D


Responder

01/02/2003

Anonymous

esse cod funciona bem até certo ponto, mais tem duas coisinhas qeu queria q arrumaes..

no meu script eu tenho um shape, e quero q o valro editado nesse Edit seja a altura do shape

tá certo.

então no edit vc digita 7, a altura continua a mesma, e só depois de digitar + um 1, como pro exmeplo, deixar 71, a altura muda pra7.. e só deposi de digitar + umnúmero, como pro exemplo, 715, a altura muda pra 71.

como arrumo isso?


outra coisa, se vc der backspace até nào sobrar + nenhum número no edit, e der depois + uma vez dá erro e fecha o projeto.

como arrumo isso?

o cod:

procedure TForm1.alturaKeyPress(Sender: TObject; var Key: Char);
begin
if (Key in[ ´0´..´9´, Chr(8)]) then
Shape1.Height := strtoint(altura.text);

end;


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar