verificar se o que esta no Tedit é menor que 100

Delphi

05/11/2003

eu estou fazendo uma aplicação que tenho 92 edits... eu gostaria de saber como eu poderia fazer para testar se o numero que o usuario digitou no edit é menor ou igual a 100

ou se tiver como só deixar ele digitar somente esses valores...


Zumbi

Zumbi

Curtidas 0

Respostas

Sam

Sam

05/11/2003

Amigão aconselho vc a utiliza o TNUMEDIT que vc encontra no [url]http://www.elivaldo.com.br[/url].

Para testar os valores digitados utilize o evento ONEXIT do TEDIT

if StrToFloat(Edit1.text) > 100 then
begin
ShowMessage(´Valor Incorreto´);
Edit1.SetFocus;
end;


GOSTEI 0
Caninha51

Caninha51

05/11/2003

Se for pra analizar todos os edits...

for i := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
if StrToInt((Components[i] as TEdit).Text) > 100 then
begin
showmessage(´> 100´);
(Components[i] as TEdit).SetFocus;
Break
end;



Falow

Caninha51


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

05/11/2003

Selecione Todos os Edits, dê um clique duplo no evento OnKeyPress

Adicione esse código:

whith (Sender as TEdit) do
begin
  if (StrToIntDef(Text + Key, 101) > 100) or (not (Key in [´0´..´9´, chr(VK_BACK)])) then
    Key := 0;
end;



GOSTEI 0
POSTAR