Validar Campos no Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja nesta Quick como validar campos no Delphi


Olá galera, nesta Quick Tips irei mostrar como podemos criar um validador de campos no Delphi.

 

Podemos ver abaixo duas functions ValidarCampos o ValidaCamposTag, ambos fazem a mesma coisa, porém o ValidaCampos irá validar todos os Edits/Combobox/Memo que não estiverem preenchidos, já o ValidaCamposTag, irá validar apensar os componentes aos quais a propriedade tag for igual a 1, simulando os componentes obrigatórios.

 

Vamos às implementações :

 

ValidaCampos

 

function TForm1.ValidaCampos: Boolean;

var

  I: Integer;

begin

  for I := 0 to ComponentCount - 1 do

  begin

    if Components[I].ClassType = TEdit then

    if TEdit(Components[I]).Text = '' then

    begin

      Result := true;

      {Se você utiliza Delphi 2009 em diante, verá que tem esta opção

      para poder escrever um conteúdo na caixa de texto quando ela     

      estiver vazia}

      TEdit(Components[I]).TextHint := 'Campo Obrigatório';

      {Outra idéia seria jogar o focu no componente}

      // TEdit(Components[I]).SetFocus;

      Exit;

    end;

    if Components[I].ClassType = TComboBox then

    if TComboBox(Components[I]).Text = '' then

    begin

      Result := true;

      {Se você utiliza Delphi 2009 em diante, verá que tem esta opção

      para poder escrever um conteúdo na caixa de texto quando ela

      estiver vazia}

      TComboBox(Components[I]).TextHint := 'Campo Obrigatório';

      {Outra idéia seria jogar o focu no componente}

      // TComboBox(Components[I]).SetFocus;

      Exit;

    end;

    if Components[I].ClassType = TMemo then

    if TMemo(Components[I]).Text = '' then

    begin

      Result := true;

      {Memo não possui a propriedade TextHint}

      TMemo(Components[I]).SetFocus;

      Exit;

    end;

  end;

end;

 

ValidaCamposTag

 

 

function TForm1.ValidaCamposTag: Boolean;

var

  I: Integer;

begin

  for I := 0 to ComponentCount - 1 do

  begin

    if Components[I].ClassType = TEdit then

    if (TEdit(Components[I]).Text = '') and

 (TEdit(Components[I]).Tag =   1) then

    begin

      Result := true;

{Se você utiliza Delphi 2009 em diante, verá que tem esta opção para poder escrever um conteúdo na caixa de texto quando ela estiver vazia}

TEdit(Components[I]).TextHint := 'Campo Obrigatório';

{Outra idéia seria jogar o focu no componente}

// TEdit(Components[I]).SetFocus;

Exit;

    end;

    if Components[I].ClassType = TComboBox then

    if (TComboBox(Components[I]).Text = '') and   

 (TComboBox(Components[I]).Tag = 1) then

    begin

      Result := true;

      {Se você utiliza Delphi 2009 em diante, verá que tem esta opção   

para poder escrever um conteúdo na caixa de texto quando ela estiver vazia}

TComboBox(Components[I]).TextHint := 'Campo Obrigatório';

{Outra idéia seria jogar o focu no componente}

// TComboBox(Components[I]).SetFocus;

Exit;

    end;

    if Components[I].ClassType = TMemo then

    if (TMemo(Components[I]).Text = '') and

 (TMemo(Components[I]).Tag = 1) then

    begin

      Result := true;

      {Memo não possui a propriedade TextHint}

      TMemo(Components[I]).SetFocus;

      Exit;

    end;

  end;

end;

 

Observe que estamos tratando apenas Edits/Combobox/Memo, porém basta mudar o tipo da classe e poderemos tratar também LabeledEdit1, CheckBox, entre outros.

 

Fico por aqui e na próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br



 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?