Invalid call typecast - As TMenuItem

[dmguridi]

Esoy recorriendo los componentes de un form y analizando las caracteristicas de los menues, labels, botones, etc de este form de la siguiente forma.
Nota: la funcion Traducir devuelve el texto pasado por parametro en un idioma determinado


begin

for i := Form1.ComponentCount - 1 downto 0 do

[i]if Form1.Components.ClassName = 'TLabel' then

[i]Form1.Components[i] As TLabel).Caption:= Traducir((Form1.Components As TLabel).Caption)

[i]else if Form1.Components.ClassName = 'TMenuItem' then

[i]Form1.Components[i] As TMenuItem).Caption:= Traducir((Form1.Components As TMenuItem).Caption) {*******}

[i]else if Form1.Components.ClassName = 'TButton' then

[i]Form1.Components[i] As TButton).Caption:= Traducir((Form1.Components As TButton).Caption);

end;

Esto funciona para todos los tipos de objetos pero para el tipo TMenuItem o TTabSheet produce un error en ejecucion "Invalid class typecast

Aguien podria decirme por qué pasa esto?
Gracias
Tota

[Neftali [Germán.Estévez]]

Empezado por dmguridi

Esoy recorriendo los componentes de un form y analizando las caracteristicas de los menues, labels, botones, etc de este form de la siguiente forma.
Nota: la funcion Traducir devuelve el texto pasado por parametro en un idioma determinado
...

Hace poco he estado mirando éste tema para un artículo y creo que te sería muy util utilizar RTTI para realizar éste trabajo. Utilizando RTTI puedes modificar las propiedades (en tu caso el caption) de los componentes de tu form sin necesidad del case (para preguntar por la clase del componente y de hacer el CAST).
Prueba lo siguiente, si ves que te puede ser útil ya dirás...
Simplemente recorrre todos los caption y en lugar de traducirlo le añade al final "-a".

Código Delphi [-]
 var
   i:Integer;
   comp:TComponent;
   PropInfo: PPropInfo;
   Str:String;
 begin
   // recorrer los componentes del form
   for i := 0 to (Self.ComponentCount - 1) do begin
 
     // accedo al componente
     comp := Self.Components[i];
 
     // Tiene la propiedad caption?
     PropInfo := GetPropInfo(comp, 'Caption');
     // Encontrada?
     if not (PropInfo = nil) then begin
 
       // obtener el caption actual
       Str := VarToStr(GetPropValue(comp, PropInfo^.Name));
 
       // Cambiarla (asegurarnos de que es String)...
       if (PropInfo^.Proptype^.Kind = tkString) or
          (PropInfo^.Proptype^.Kind = tkLString) then begin
 
         // Asignar el valor de tipo String
         SetStrProp(comp, PropInfo, Str + '-' + 'a');
       end;
     end;
   end;

NOTA: Éste código funciona con TTabSheet Y TMenuItems.
NOTA2: En tu código no veo nada raro, así que lo he probado y tb funciona con TTabSheet Y TMenuItems.

[dmguridi]

Aunque debo analizar no solo captions (propiedades de grillas, charts, etc) es muy buena solucion.

Mi ejemplo, en que version de Delphi lo probaste?

Muchisimas gracias.
Tota

[Neftali [Germán.Estévez]]

Empezado por dmguridi

Mi ejemplo, en que version de Delphi lo probaste?

Delphi 6.

Código Delphi [-]
 procedure TForm1.Button3Click(Sender: TObject);
 var
   i:Integer;
 begin
   for i := Form1.ComponentCount - 1 downto 0 do
     if Form1.Components[i].ClassName = 'TLabel' then
       (Form1.Components[i] As TLabel).Caption := (Form1.Components[i] As TLabel).Caption + '-a'
     else if Form1.Components[i].ClassName = 'TMenuItem' then
       (Form1.Components[i] As TMenuItem).Caption := (Form1.Components[i] As TMenuItem).Caption + '-a'
     else if Form1.Components[i].ClassName = 'TTabSheet' then
       (Form1.Components[i] As TTabSheet).Caption := (Form1.Components[i] As TTabSheet).Caption + '-a'
     else if Form1.Components[i].ClassName = 'TButton' then
       (Form1.Components[i] As TButton).Caption := (Form1.Components[i] As TButton).Caption + '-a';
 end;

...y funcionó OK.

[dmguridi]

Debo tener algo en mi Delphi 6, el mismo ejemplo me da error.
Gracias nuevamente