Fórum Ajuda com o comando lenght #197793
28/11/2003
0
Ola tenho o seguinte codigo:
agora quero junto a esse codigo o seguinte:
SE nao tiver 11 numeros no dbtext ENTAO mostre a mensagem SE tiver feche o programa
Um abraço e agradeço desde ja..
[i:7f0b83d051]Título editado. Digite em minúsculas. (marcelo.c - Moderador)[/i:7f0b83d051]
if (DBEdit12.Text = ´´) then begin ShowMessage(´Não existe nada´); DBEdit12.SetFocus; end;
agora quero junto a esse codigo o seguinte:
SE nao tiver 11 numeros no dbtext ENTAO mostre a mensagem SE tiver feche o programa
Um abraço e agradeço desde ja..
[i:7f0b83d051]Título editado. Digite em minúsculas. (marcelo.c - Moderador)[/i:7f0b83d051]
Njunior
Curtir tópico
+ 0
Responder
Posts
29/11/2003
Yankleber
Olá,
Não sei se entendi direito o que você quer, mas lá vai:
Agora, na verdade ele só testa se o tamanho total da string é 11, e não se são 11 [b:2d16f7a7ce]números[/b:2d16f7a7ce] (ou seriam [b:2d16f7a7ce]algarismos[/b:2d16f7a7ce]?). Para isso você deveria limitar os caracteres a serem digitados a apenas algarismos...
Não sei se entendi direito o que você quer, mas lá vai:
if length(trim(dbedit12.text)) = 11 then
close
else
begin
if trim(dbedit12.text) = ´´ then
showmessage (´Não existe nada´)
else
showmessage (´Erro´);
dbedit12.setfocus;
end;Agora, na verdade ele só testa se o tamanho total da string é 11, e não se são 11 [b:2d16f7a7ce]números[/b:2d16f7a7ce] (ou seriam [b:2d16f7a7ce]algarismos[/b:2d16f7a7ce]?). Para isso você deveria limitar os caracteres a serem digitados a apenas algarismos...
Responder
Gostei + 0
29/11/2003
Programador_junior
if (DBEdit12.Text <> ´´) then
if length(DBEdit12.text) <> 11 then
begin
ShowMessage(´Parâmetros Incorretos´);
DBEdit12.SetFocus;
end
else
if (DBEdit12.text = ´´) then
begin
Showmessage(´campo vazio´);
DBEdit12.setfocus;
end;
if length(DBEdit12.text) <> 11 then
begin
ShowMessage(´Parâmetros Incorretos´);
DBEdit12.SetFocus;
end
else
if (DBEdit12.text = ´´) then
begin
Showmessage(´campo vazio´);
DBEdit12.setfocus;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)