Ver Mensaje Individual
  #2  
Antiguo 01-10-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.114
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Más que contarlos, pareciera que lo que necesitas es saber si un determinado "Edit" tiene algún valor o no. Vamos, eso me parece así, a bote pronto. Si quieres puedes buscar información en los foros sobre el método "CountrolCount()" conque cuentan los componentes (que descienden de "TWinControl").

En todo caso algo parecido a esto podría llevarse a cabo:

Código Delphi [-]
function TotalControls(container: TWinControl;
 classType: TClass) : integer;
var
  i: integer;
begin
  result := 0;
  for i := 0 to container.ControlCount-1 do begin
    if (container.Controls[i] is classType) then
      Inc(result);
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Caption := IntToStr( TotalControls(Self, TEdit) );
end;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 01-10-2007 a las 22:50:59.
Responder Con Cita