O que acontece com essa rotina? Qual a mensagem de erro que ocorre? []s -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva ® Enviada em: terça-feira, 26 de abril de 2005 09:18 Para: Grupo Delhpi-br Assunto: [delphi-br] Validar campos em um form
Galera tenho a função abaixo para fazer a validação e destacar os campos obrigatórios em um form. Essa função foi passada em um número da revista Clube Delphi que eu não me lembro, mas ela não está funcionando. Alguém poderia me dar uma mão e ver o que está errado ? Obrigado. function Valida(F: TForm): boolean; var i : integer; lbl : TLabel; ds : TDataSource; fn : string; c : TObject; begin for i := 0 to F.ComponentCount - 1 do begin if F.Components[i] is TLabel then lbl := F.Components[i] as TLabel; lbl.Font.Color := clWindowText; lbl.Font.Style := []; if lbl.FocusControl <> nil then begin c := lbl.FocusControl; {Declare TypInfo no uses} if IsPublishedProp(c,'DataSource') then begin ds := TDataSource(GetObjectProp(c,'DataSource')); if IsPublishedProp(c,'DataField') then begin fn := GetStrProp(c,'DataField'); if ds.DataSet.FieldByName(fn).Required then if ds.DataSet.FieldByName(fn).IsNull then begin lbl.Font.Style := [fsBold]; lbl.Font.Color := clRed; end; end; end; end; end; end; ~\\|//~ -(o o)- o--------------oOOOo--(_)--oOOOo-------------o | | | Eduardo de Almeida Silva | | Kobra Sistemas | | [EMAIL PROTECTED] - (14)3263-0326 | | | | .oooO Oooo. | o----------------( )---( )---------------o \ ( ) / \_) (_/ -- <<<<< 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.3 - Release Date: 25/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.3 - Release Date: 25/04/2005 ************************************************************************* Esta mensagem, incluindo os seus anexos, contém informações confidenciais destinadas a indivíduo e propósito específicos, e é protegida por lei. Caso você não seja o citado indivíduo, deve apagá-la imediatamente. É terminantemente proibida a utilização, acesso, cópia ou divulgação não autorizada das informações presentes neste email. As informações contidas nesta mensagem e em seus anexos são de responsabilidade de seu autor, não representando idéias, opiniões, pensamentos ou qualquer forma de posicionamento por parte da Fundação Desembargador Paulo Feitoza. The information contained in this communication is confidential, is law protected, and is intended only for the business use of the addressee. If you have received this communication in error, please immediately delete it. It's forbidden the unauthorized use, access, copy or disclose of the information contained in this communication. The content of this message is responsibility of the author, and does not represent ideas, opinions, thoughts or any kind of statement of Fundação Desembargador Paulo Feitoza. -- <<<<< 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html