Asignacion a un Variant

[ecfisa]

Hola gersonmaba.

Si cxDBLC_Base, cxDBLC_Fac, ..., cxDBLC_ZZZ son del mismo tipo, podés evaluar la propiedad ClassType:

Código Delphi [-]
procedure TForm1.btnClassTypeClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= ComponentCount - 1 downto 0 do
    if Components[i].ClassType = TEdit then
      TEdit(Components[i]).Text:= 'Nuevo Texto'; // Text = 'Nuevo Texto'
end;

Si son de diferentes tipos pero comparten una misma propiedad como por ejemplo Caption, podrías hacer:

Código Delphi [-]
uses TypInfo;
{pone la propiedad Caption = '' en todos los componentes que la posean }
procedure TForm1.btnRTTIClick(Sender: TObject);
var
  i: Integer;
  PropInfo: PPropInfo;
begin
  for i:= ComponentCount - 1 downto 0 do
  begin
    PropInfo:= GetPropInfo(Components[i], 'Caption');
    if PropInfo <> nil then
      SetStrProp(Components[i],PropInfo, ''); // Caption = ''
  end;
end;

Usando esta última forma (RTTI), podés ir bastante más lejos que lo que hace este simple ejemplo.

Saludos.

[gersonmaba]

Si Tienes muchas Razon ecfisa me pondre a explorar y a aplicar esta forma, Mil Gracias por tu gran Colaboracion.

Gracias.

[ecfisa]

Hola gersonmaba.

Si querés empezar a interiorizarte sobre RTTI te paso unos enlaces:

Run-Time Type Information In Delphi (artículo)

Blog de Neftalí (ejemplo muy completo)

Buscando vas a encontrar mucho mas material sobre el tema.

Un saludo.