String Ou Integer

[AlexBEE]

Ola

Eu tenho um Edit.text e eu gostaria de descobrir se ele so tem NUMERAL ou se tem (VOGAIS E CONSOANTES)!!!!

É que eu tenho a seguinte situacao, no mesmo compo pode-se entar com NUMERO DO CARTAO ou o USUARIO e eu tenho que diferenciar!!!!!!!

URGENTE!!!!!!!!!!

alexangelo@ibestvip.com.br

OBRIGADO

ALEXANGELO

[rafaelrneto]

Tenta isso:

        isInteiro:=true;
        try
          inteiro := StrtoInt(Edit1.Text);
        Except
         on EConvertError do flag:= false;
        end;

        if (isInteiro) then
                showmessage('inteiro')
        else
                showmessage('string');

[Vivendo&Aprendendo]

Tenta isso

if ( Key in ['0','1','2','3','4','5','6','7','8','9',',',#8,#7] ) then

ShowMessage('Somente números')

else

ShowMessage('Nome usuário');

cara não testei pois estou sem o delphi

mas testa ai qualquer coisa posta ai

falou

[AlexBEE]

O grande problema pe que se ele for Usuario (String) e se tentat conventer para intego ele da uma mensagem de erro:

EX : StrToInt(Edit.text)

Se for numeral tudo bem da certo, porem se for TEXTO ele não convente e da erro!!!!!

ALEXANGELO

[rafaelrneto]

É só tu tratar o erro assim:

try
        inteiro := StrtoInt(Edit1.Text);
       Except
        on EConvertError do flag:= false;
       end;

[AlexBEE]

Esse Flag eu declaro como booleana???

pois não funcionou!!!!!

OBRIGADO

ALEXANGELO

[Guest Guest]

Esse flag é booleano. Inicializa ele com true. Assim:

obs:mudei o nome de flag para IsInteiro.

procedure VerificaEdit;
var isInteiro:Boolean;
      inteiro: Integer;
begin
       isInteiro:=true;
       try
         inteiro := StrtoInt(Edit1.Text);
       Except
        on EConvertError do IsInteiro:= false;
       end;

       if (isInteiro) then
               showmessage('inteiro')
       else
               showmessage('string');
end;

[AlexBEE]

Ola

mesmo colocando deste geito ele ainda esta dando mensagem de erro, você testou e deu certo??????

ALEXANGELO

[rafaelrneto]

Testei e deu certo.

Criei um form e adicionei um edit e um botão. No onClick do botão verifico se o edit é numero ou string. Abaixo segue o codigo.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var isInteiro:Boolean;
     inteiro: Integer;
begin
      isInteiro:=true;
      try
        inteiro := StrtoInt(Edit1.Text);
      Except
       on EConvertError do IsInteiro:= false;
      end;

      if (isInteiro) then
              showmessage('inteiro')
      else
              showmessage('string');
end;


end.

[Progr'amador]

Olá Alex.

o erro é esse?:

Project Project1.exe raised exceotion class EConvertError with message "Edit1' is

not a valid integer value'. Process stopped. Use Step or Run to continue.

Se for, esse erro só acontece quando você execulta o exe compilado do projeto, quando você abre o exe direto, isso não acontece, não sei o porque disso, mas acontece toda vez que se usa esse Try (pelo memos comigo sempre é assim), por enquanto eu considero "normal" esse erro, tendo em vista não influencia no funcionamento do programa. No entanto, se alguém tiver uma explicação lógica pra isso, posta ae, falow galera!

Abs. Progr'amador.

[AlexBEE]

Valeu GALERA era esse o problema, é que eu tentava executar direto do copilador eu executei direto do EXE e deu certo, o meu problema esta resolvido!!!!!

OBEIGADO

ALEXANGELO

[Progr'amador]

beleza Alex, de qualquer maneira vou deixa este tópico aberto, e se alguém souber explicar o motivo desse erro, posta ae, falow!!!

Olá Alex.

o erro é esse?:

Project Project1.exe raised exceotion class EConvertError with message "Edit1' is

not a valid integer value'. Process stopped. Use Step or Run to continue.

Se for, esse erro só acontece quando você execulta o exe compilado do projeto, quando você abre o exe direto, isso não acontece, não sei o porque disso, mas acontece toda vez que se usa esse Try (pelo memos comigo sempre é assim), por enquanto eu considero "normal" esse erro, tendo em vista não influencia no funcionamento do programa. No entanto, se alguém tiver uma explicação lógica pra isso, posta ae, falow galera! 

Abs. Progr'amador.

Abs. Progr'amador

[rafaelrneto]

Eu acho que esse erro que acontece apenas quando se roda pelo delphi é disparado para que o programador saiba a exceção que gerou e trate no seu programa. Caso o programador não trate a exceção, o erro aparece tambem no executavel.