Duda con ComponentCout

[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.

[rgstuamigo]

Pues si...tienes toda la razón amigo ecfisa.
En ese caso pues el código final bien 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
      TcxTextEdit(Form.Controls[i]).Clear;

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

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

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

Saludos...