(Resolvido) verificar qtd de caracteres no onexit de um edit

[claudyo]

È o seguinte, tenho um formulario de cadastro de clientes, e estou com um probleminha com um edit onde o usuario vai digitar o tel do cliente, esse é o campo mais importante já q as consultas vao ser feitas em cima dele, então esse campo não pode ter erros tipo qtd de caracteres não pode exceder tenho uma funçao pra formata esse tem da seguinte forma 9999-9999 ignorando codigo de area, keria saber como faço pro usuario não conseguir gravar no BD se esse campo tiver mais ou menos caracteres segue o codigo

function Tfrmcadastro.valida_mascara_tel(var key: char;
  sender: TObject): string;
begin
     if not (key in ['0'..'9',#8,#13]) then key:=#0;
     if key <> #8 then
      begin
      if key <> #13 then
      if Length(TEdit(sender).Text)=8 then
      edtend.SetFocus;
      case Length (TEdit(sender).Text)of
      4:begin
      if not (key in ['0'..'9']) then key:=#0;
      TEdit(sender).text := TEdit(sender).Text + '-';
      TEdit(sender).selStart := Length (TEdit(sender).Text);
      end;
      end;

      end;
     end;

essa funçao colokey no onkeypress do edit em questao

procedure Tfrmcadastro.edtTelExit(Sender: TObject);
begin
     if length (edttel.Text) <> 8 then
     Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel);
     edttel.SetFocus;
     if length (edttel.Text)=8 then
     edtEnd.SetFocus;
end;

essa ta no onexit, keria saber onde to errando. Se alguém puder me ajudar eu agradeço

[Jhonas]

Na propriedade MaxLength do TEdit voce pode limitar o tamanho caracteres

essa ta no onexit, keria saber onde to errando. Se alguém puder me ajudar eu agradeço

procedure Tfrmcadastro.edtTelExit(Sender: TObject);

begin

if length (edttel.Text) <> 8 then

Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel);

edttel.SetFocus;

if length (edttel.Text)=8 then

edtEnd.SetFocus;

end;

faça esta modificação

procedure Tfrmcadastro.edtTelExit(Sender: TObject);
begin
     if length (trim(edttel.Text)) > 8 then
         begin
              Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel);
              edttel.SetFocus;
              edttel.selectAll;
         end;

end;

abraço

[claudyo]

Na propriedade MaxLength do TEdit voce pode limitar o tamanho caracteres

essa ta no onexit, keria saber onde to errando. Se alguém puder me ajudar eu agradeço

procedure Tfrmcadastro.edtTelExit(Sender: TObject);

begin

if length (edttel.Text) <> 8 then

Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel);

edttel.SetFocus;

if length (edttel.Text)=8 then

edtEnd.SetFocus;

end;

faça esta modificação

procedure Tfrmcadastro.edtTelExit(Sender: TObject);
begin
     if length (trim(edttel.Text)) > 8 then
         begin
              Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel);
              edttel.SetFocus;
              edttel.selectAll;
         end;

end;

abraço

muito obrigado pela ajuda Jhonas ,funcionou beleza fico grato

abraço