Código
// 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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009