Duda con ComponentCout

[*Caro*]

Hola Paulao, lo que puedes hacer es que uno de tus parámetros de tu procedimiento sea de tipo TForm, en el cual le pasaras el formulario del que quieres que recorra sus componentes:

Código Delphi [-]
unit Unit2;
interface
uses
  Forms, StdCtrls,Dialogs ........;
   procedure Recorrer(formulario : TForm);
 
..........................................................
procedure Recorrer(formulario : TForm);
begin
 for ind:=0 to formulario.ComponentCount-1 do
  begin
   if formulario.Components[ind] is TEdit then
  ......................................................

Saluditos

[Paulao]

Yo tenia hecho esto, pero todo se queda congelado, travado y tengo dar un Kill en proceso.

Código Delphi [-]
procedure LimpaEdit(Form: TForm);
var
  i: Integer;
begin
  for i := 0 to Form.ComponentCount - 1 do
  begin
    if(Form.Components[i] is TcxTextEdit) then
      (Form.Components[i] as TcxTextEdit).Clear;

    if(Form.Components[i] is TcxLookupComboBox) then
      (Form.Components[i] as TcxLookupComboBox).Clear;

    if(Form.Components[i] is TcxCalcEdit) then
      (Form.Components[i] as TcxCalcEdit).Text := '0';

    if(Form.Components[i] is TcxDateEdit) then
      (Form.Components[i] as TcxDateEdit).Clear;
  end;
end;

[*Caro*]

Hola de nuevo Paulao, a mi me funciona bien, ¿te sale algún mensaje de error?, no sera que entra en un ciclo infinito, verifica que valor tiene ComponentCount cuando entra a tu procedimiento.

Saluditos

[ecfisa]

Hola Paulao.

No tengo esos componentes. Sin embargo ese código debería funcionar bíen usando los componentes standard.

Lo que sí te comento es que no hay necesidad de hacer:

Código Delphi [-]
 if(Form.Components[i] is TcxTextEdit) then 
      (Form.Components[i] as TcxTextEdit).Clear;

Es redundante y degrada el tamaño y velocidad del código.

Mucho mejor es:

Código Delphi [-]
   if (Form.Components[i] is TcxTextEdit) then
    // ya sabemos que es un TcxTextEdit...
      TcxTextEdit(Form.Components[i]).Clear;

Saludos.

[rgstuamigo]

Empezado por ecfisa

...
Lo que sí te comento es que no hay necesidad de hacer:

Código Delphi [-]
 if(Form.Components[i] is TcxTextEdit) then 
      (Form.Components[i] as TcxTextEdit).Clear;

Es redundante y degrada el tamaño y velocidad del código.

Mucho mejor es:

Código Delphi [-]
   if (Form.Components[i] is TcxTextEdit) then
    // ya sabemos que es un TcxTextEdit...
      TcxTextEdit(Form.Components[i]).Clear;

Saludos.

Pues yo no le veo diferencia, ya que en Delphi ambas formas son equivalente:

Código Delphi [-]
if(Form.Components[i] is TcxTextEdit) then 
      (Form.Components[i] as TcxTextEdit).Clear;// se está haciendo un casting usando el operador dinámico "as"

es equivalente a:

Código Delphi [-]
   if (Form.Components[i] is TcxTextEdit) then
      TcxTextEdit(Form.Components[i]).Clear;//Se está haciendo casting sin ningun operador

Lo único que puedo sugerir es que si SOLO se quiere Iterar el ciclo con solo Componentes que son descencientes de TControl, es decir sólo con controles, pues en ese caso sería mejor usar la propiedad ControlCount en lugar de ComponentCount para optimizar la operación , ya que la propiedad ComponentCount toma en cuenta tambien todos los componentes que sean o no sean controles, por ejemplo : Los TQuery,TDataSource,TTable,TXPManifest,etc. y como veis en éste caso no necesito incluir ese tipo de componentes en el ciclo.
De esa forma el procedimiento Optimizado quedaría así:

Código Delphi [-]
procedure LimpaEdit(Form: TForm);
var
  i: Integer;
begin
  for i := 0 to Form.ControlCount - 1 do
  begin
    if(Form.Controls[i] is TcxTextEdit) then
      (Form.Controls[i] as TcxTextEdit).Clear;

    if(Form.Controls[i] is TcxLookupComboBox) then
      (Form.Controls[i] as TcxLookupComboBox).Clear;

    if(Form.Controls[i] is TcxCalcEdit) then
      (Form.Controls[i] as TcxCalcEdit).Text := '0';

    if(Form.Controls[i] is TcxDateEdit) then
      (Form.Controls[i] as TcxDateEdit).Clear;
  end;
end;

Saludos...

[ecfisa]

Empezado por rgstuamigo

Pues yo no le veo diferencia, ya que en Delphi ambas formas son equivalente:

Hola.

Descomponiendo as en sus primitivas, sería:

Código Delphi [-]
  if Form.Component[i] is TcxTextEdit then
    TcxTextEdit(Form.Component[i]).Clear
  else
    raise EInvalidCast.Create('Tipo de conversión iválido');

Usando el ejemplo:

Código Delphi [-]
  if(Form.Controls[i] is TcxTextEdit) then
      (Form.Controls[i] as TcxTextEdit).Clear;

Y realizando un reemplazo por su equivalente queda:

Código Delphi [-]
  if Form.Component[i] is TcxTextEdit then
  { línea del as }
   if Form.Component[i] is TcxTextEdit then  // redundante...
     TcxTextEdit(Form.Component[i]).Clear
   else
    raise EInvalidCast.Create('Tipo de conversión iválido');

Saludos.

[rgstuamigo]

Empezado por ecfisa

Hola.

Descomponiendo as en sus primitivas, sería:

Código Delphi [-]
  if Form.Component[i] is TcxTextEdit then
    TcxTextEdit(Form.Component[i]).Clear
  else
    raise EInvalidCast.Create('Tipo de conversión iválido');

...

Pues, me sorpende tal "descomposición", aunque me gustaría saber ¿de dónde lo has sacado? Podrías darme algun enlace al respecto?
Épale..Cada día se aprende algo nuevo.
Saludos...

[ecfisa]

Empezado por rgstuamigo

Pues, me sorpende tal "descomposición", aunque me gustaría saber ¿de dónde lo has sacado? Podrías darme algun enlace al respecto?
Épale..Cada día se aprende algo nuevo.
Saludos...

Hola.

Si como no. Recordaba haberlo leido en La cara Oculta de Delphi.
Tuve que buscar un poco por que no sabía exactamente donde, pero ya lo ubiqué, está en la página 169.

"El operador as se puede descomponer en instrucciones más simples. La primera
instrucción del ejemplo anterior es equivalente a la siguiente secuencia de instruc-
ciones:
if ActiveControl is TButton then
TButton(ActiveControl).Click
else
raise EInvalidCast.Create('Invalid type cast');
..."

Saludos.