Ajuda com o comando lenght

Delphi

28/11/2003

Ola tenho o seguinte codigo:

 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

Njunior

Curtidas 0

Respostas

Yankleber

Yankleber

28/11/2003

Olá,

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...


GOSTEI 0
Programador_junior

Programador_junior

28/11/2003

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;


GOSTEI 0
POSTAR