Re: [delphi-br] Campo Required

Tue, 09 May 2006 05:06:35 -0700

Na verdade é isto que não queria fazer, pensei em algo +/- assim:

Try
    Query1.ApplyUpdates;
Except
    on EDatabaseError do .....
end;

Ou seja, pensei em capturar pelo exception, o erro que ocorreu, em qual
campo, exibir a msg de erro e posicionar no campo.

Sei que o exemplo que vc (Luis) apresentou funciona, mas não queria fazer o
bloco de repetição, queria OO.

Grato, se alguém tiver um exemplo ou dica agradeço,

Rogério Ricardo Fernandes
Desenvolvimento

----- Original Message -----
From: "Luis Lopes" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, May 08, 2006 5:51 PM
Subject: Re: [delphi-br] Campo Required


Kra,

Eu fiz uma função e faço a chamada dela no beforepost do clientdataset...
não se ajuda...


// Valida os campos que são obrigatórios.
procedure ValidateData(DataSet: TDataSet);
var
  Contador: Integer;
begin
  with DataSet do
  begin
    for Contador := 0 to FieldCount -1 do
    begin
      // Se o campo não estiver preenchido e for required
      if (trim(DataSet.Fields[Contador].Text) = '') and
(Fields[Contador].Required) then
      begin
        // Seta o focus no campo
        Fields[Contador].FocusControl;

        raise Exception.Create('Campo ' + Fields[Contador].DisplayLabel + '
tem que ser preenchido');
      end;
    end;
  end;
end;




Luis Alberto
Belo Horizonte - MG


---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular
e anti-spam realmente eficaz.

[As partes desta mensagem que não continham texto foram removidas]



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos












--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]


Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

Links do Yahoo! Grupos

Responder a