7 respuestas en este tema

[enecumene]

Es posible hacer un case con ClassType?, algo como:

delphi

procedure TForm1.Button1Click(sender: TObject);
var idx: Integer;
begin
 for idx := 0 to ComponentCount -1 do begin
  Case Components[idx].ClassType Of
    TLabel : //Algo;
    TPanel : //Algo;
  End;
 end;
end;

Saludos.

[Delphius]

Hola Fernando, no tengo Delphi a mano ahorita como para probar si funciona pero me inclino por un NO.
Que yo recuerde, el case acepta un tipo ordinal y el ClassType no es un ordinal. A menos que en las nuevas versiones de delphi le hayan dado más potencial al case no veo otra forma que llevar el código por otro lado.

Saludos,

[felipe]

Y porqué no intentar algo como el case de strings, así creas el vector con las clases que necesites.


Saludos!

[Sergio]

Podias meter los nombres de las clases en un tstringlist y usar algo como:

delphi

case lista.indexof(miobjeto.classname) do
case lista.indexof('TLabel'):
...
end;

El segundo uso de indexof no se si sera válido para un case, pero bueno, usais 0, 1, 2 sabiendo en que posicion pusisteis cada uno y listo!

ojo, no le he probado... 

[Delphius]

Hola,
Pues no hay otra que recurrir a "malabares" como los que te comentan. A menos que logres llevar el proceso o funcionalidad que requieras de otra forma... tal vez descomponiendo el problema de una nueva perspectiva.

Si ese "algo" a hacer se pudiera expresar en algo común a todas las clases que intervienen (método virtual y/o abstracto), y cada clase del case fuera una extensión de esa clase base (y redefiniendo el método en cuestión) entonces se podría hacer uso de las referencias de clases:

1) Declarar, un tipo de clase de la clase base y común a todas:

delphi

type
TMyTypeClass = class of TClaseBase;

2) Dispones de una variable de la clase base:

delphi

var TypeClass: TMyTypeClass;

3) Luego simplemente itero extrayendo la referencia a la clase y utilizando dicho objeto:

delphi

for idx := 0 to ComponentCount - 1 do
begin
TypeClass := TMyTypeClass(Components[ibx]);
TProductoBase(TypeClass).HacerAlgo;
end;

Siendo este HacerAlgo el método en cuestión 

No he probado el código que expuse. Lo escribí de memoria pero la idea se entiende.

El problema es que para el caso de Fernando no resulta tan sencillo de llevarlo a cabo ya que en última sigue teniendo el mismo problema y debería hacer tantos casts sobre TypeClass como clases que tuviera en el case:

delphi

TLabel().xxxx;
TPanel().xxx;

Por más que se utilizara un:

delphi

TComponentClass = class of TComponent;

Y no hay modo directo, al menos que yo conozca, de saber que clase utilizar para el cast.

La única vía que se me ocurre es aprovechar el ClassName ya del componente, e ingenierarselas para asociar ese nombre, con cada valor del case, como por ejemplo la de utilizar listas de strings.

Saludos,

[cadetill]

Buenas,

Con el ClassName (que retorna un string) y este truquillo no tendrías que tener problema en hacer el case que quieres

Nos leemos

[felipe]

Buenas,

Con el ClassName (que retorna un string) y este truquillo no tendrías que tener problema en hacer el case que quieres

Nos leemos

A ese mismo me referí


Saludos!

[enecumene]

Vaya que se me ha pasado el truco del case of string , gracias amigo cadetill.

@Delphius: gracias por la excelente explicación .

Saludos.