Necesito ayuda

[[coso]]

ni un variant...me parece que hay alguna version de delphi que el tag es variant

[Maria85]

Es Ordinal!Tienes razón.

Entonces que debo hacer??

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

Haz una prueba sencilla para salir de dudas...

var

Código Delphi [-]
  i:Integer;
  opcion: string;
begin
  i := ((Sender as TComponent).Tag);   
  case i of
  ...

A ver dónde marca el error ahora.

[Maria85]

Me funciona!!!

Muchisimas gracias!!!
a veces me atasco en unas cosas...

Un saludo y gracias

[[Al González]]

Empezado por coso

ni un variant...me parece que hay alguna version de delphi que el tag es variant

Esto me resulta interesante, Coso. Por lo visto ahora podrá guardarse cualquier cosa en la propiedad Tag, algo que viene a solucionar ciertas necesidades de asignar datos extras a los componentes.

Que, dicho sea de paso, para mí una mejor solución sería la teórica herencia insertada.

¿Sabes qué versiones son las que tienen a la propiedad Tag de tipo Variant?

Saludos.

Al.

[[coso]]

pues no, me suena de haberlo probado, pero quiza era power builder o otro lenguaje X/ me suena mucho, por eso

[roman]

Empezado por Al González

Por lo visto ahora podrá guardarse cualquier cosa en la propiedad Tag

Desconozco si hay alguna versión de Delphi en donde el Tag sea Variant. Para mi que coso se confunde con VB

Por otra parte espero que nunca suceda algo así; sobre todo porque ya puedes guardar cualquier cosa en el Tag:

Código Delphi [-]
Componente.Tag := Integer(UnObjetoCualquiera);

// Saludos

[[coso]]

Para mi que coso se confunde con VB

es posible es posible

[[coso]]

...creo que era Visual Studio C++...si, casi seguro...

[[Al González]]

Ah, entonces era otro lenguaje. Por un momento pensé que habían hecho ese cambio en Delphi 2009 o algo por el estilo.

Empezado por roman

...ya puedes guardar cualquier cosa en el Tag:

Código Delphi [-]
Componente.Tag := Integer(UnObjetoCualquiera);

Eso es muy cierto, Román, me faltó ser más específico. Así mismo lo he hecho en algunos casos muy particulares, como en esta clase interpuesta de un proyecto:

Código Delphi [-]
  Function TField.Desc :TFieldDesc;
  Var
    QualifiedName :String;
  Begin
    If HasDesc Then
      Result := TFieldDesc (Tag)
    Else
      ...

      Result := FieldDesc (QualifiedName);

      { Usamos la propiedad Tag para apuntar al objeto descriptor }
      Tag := Integer (Result);
    End;
  End;

Saludos.

Al.