Verificar String

Question

:lol:  Pessoal me ajudem!Como eu fa�o para verificar se a String tem s� n�mero ou string e se estiver string avisar que o edit s� aceita n�mero. :?:...

Bruno Belchior · Answer

pelo q eu entendi vc preciza q o edit s� aceito n�mero correto
no envendo OnKeyPress coloque

begin
if (not (key in [�0�..�9�]) or (word(key)<>VK_BACK)) then
begin
key:=#0;
beep;
end;
end;

Zunker · Answer

Eu preciso verificar se o Edit possui somente numeros ou sinais, sendo que naum pode conter letras....

Paulo_amorim · Answer

Ol�Cmo disse o Bruno, teste no KeyPress[code:1:5c8790df65]if Key not in &#91;0..9,13,8&93;  then Key := 0;[/code:1:5c8790df65]Voc� tambem pode validar na hora de usar...por exemplo, num bot�o de inclus�ao vc valida se soh tem Integer...StrToInt(Edit1.Text)At�+...

Zunker · Answer

O problema � que com a variavel q o imputbox cria, eu tenho q verificar se n�o tem letra

Se o cara q lida com o micro, em vez de digitar s� numero como � q eu quero, digitar uma letra por acaso, ent�o eu tenho q verificar essa saida para retornar uma mensagem para o carinha se por acaso digitou letras na variavel do Ano.

Marconi · Answer

SnambieNos exemplos anteriores, o usu�rio n�o vai conseguir digitar outra coisa que n�o seja n�mero, por isso voce n�o ter� que avisa-los.Lembrando ainda que para funcionar a propriedade Keypreview do form deve estar como �true�.Marconi...

Zunker · Answer

Eu testei mas naum deu certo...

R�mulo Barros · Answer

[code:1:db5f38d9fa]procedure TForm1.Button1Click(Sender: TObject);Var C : Byte; Caractere : string;begin For C := 1 to length(Edit1.Text)Do Begin Caractere := Copy(Edit1.Text,C,1); If((Caractere <> �0�) or (Caractere <> �1�) or (Caractere <> �2�) or (Caractere <> �3�) or (Caractere <> �4�) or (Caractere <> �5�) or (Caractere <> �6�) or (Caractere <> �7�) or (Caractere <> �8�) or (Caractere <> �9�))Then ShowMessage(�Letras encontradas !!!�); Exit; End;end;[/code:1:db5f38d9fa]...

Zunker · Answer

vlwagora deu certo...

Marcelo Saviski · Answer

ou assim:[code:1:3bd59a35d6]function IsInteger(s: string): Boolean;var  n: Integer;begin  Result := TryIntToStr(s, n);end;function IsFloat(s: string): Boolean;var  n: Double;begin  Result := TryFloatToStr(s, n);end;[/code:1:3bd59a35d6]exemplo de uso:p/ numeros inteiros[code:1:3bd59a35d6]if IsInteger(ImputBox(�Texto�, �Digite algo�, ��)) then  showmessage(�� um n�mero inteiro�)else  showmessage(�n�o � um n�mero inteiro�);[/code:1:3bd59a35d6]--ou--p/ �n�meros com v�rgula[code:1:3bd59a35d6]if IsFloat(ImputBox(�Texto�, �Digite algo�, ��)) then  showmessage(�� um n�mero real�)else  showmessage(�n�o � um n�mero real�);[/code:1:3bd59a35d6]...

F�rum Verificar String #235537