Buscar

Avisa se algum edit no formulário não foi preenchido

Código

Function CheckForBlankText : Boolean
// deve ser usada assim:
// function TForm1.CheckForBlankText : Boolean;
// Declare-a na clausula Private do form
var
n : LongInt
begin
Result := false
for n := 0 to ( ComponentCount - 1 ) do
begin
if ( components[n].ClassType = TEdit ) then
begin
if TEdit (components[n]).text = '' then
begin
Result := true
Exit;
end;
end ;
end ;
End;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 02/08/03
Por: Mario C. Neto
Visualizada: 3677 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009