Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
kcris

Dúvida Sobre Edit

Question

Por favor, alguém poderia me dizer como fazer para que o usuário só digite números no edit?

Decli := StrToInt(edDeclividade.text);

Faço essa conversão, quando ele digita texto o programa da erro e para, mas quero eu fazer uma mensagem de erro e dar um setfocus para ele digitar de novo, mas como?

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Mas o que eu escrevo?

if edit.text = ???? then

Erro

Mais uma pergunta: Faço um cálculo que dá número com virgula e o exibo em um edit, só que eu quero deixar só 2 digitos depois da virgula, mas não sei como fazer para eleminar os outros números. Como?

Share this post


Link to post
Share on other sites
  • 0
Guest Nitsch

Cara dentro do KeyPres controle os codigos ASCII caso esteja fora entre 0 á 9 incluindo a virgura voce deixa passar. Outra dica é utilizar o maskEdit ele já possui a mascara para isso.

Share this post


Link to post
Share on other sites
  • 0

Só números no TEdit:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ((Key < '0') or (Key > '9')) and (Key <> #8) then
  begin
    Key := #0;
    ShowMessage('Caracter Inválido no Edit Numérico !');
  end;
end;

Para deixar só 2 dígitos decimais, acho que assim resolve:

f := Trunc(f*100) / 100; // f é o Double

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148403
    • Total Posts
      643808
×
×
  • Create New...