sábado, 6 de junho de 2009

Como verificar se falta algum edit para preencher?

Function 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;

Nenhum comentário:

Postar um comentário