Buscar por:

Programação orientada a objeto

Código

{Para verificar campos obrigatórios sem ficar colocando conjunto de if..

ex: if Edit1.Text = '' then 

       ShowMessage('Campo em Branco'); Com a técnica orientada a objeto em poucas linhas é possivel analisar todos os campos independente de qntos componenentes Edits ou outros. Utilizando a propriedade TAG. Altere a propriedade TAG p/ 1 sendo q 1 para obrigatório e 0 não obrigatório }

var

  i: integer;

begin

  for i:= 0 to ComponentCount -1 do  / indices de todos os componentes

  if Components[i] is Edit then // verifica se o índice do componente é um Edit

    if TEdit(Components[i]).Tag = 1 then // Se a TAG for 1 é obrigatório

       begin

            if Trim(TEdit(Components[i]).Text) = ' ' then //se for em branco

              begin

                ShowMessage('O campo '+ TEDit(Components[i]).Hint + ' é obrigatório'); // coloque o nome do campo na propriedade Hint

                TDBEdit(Components[i]).SetFocus;

                 Exit;

              end