Necesito ayuda

[Maria85]

hOLA a todos!!

Tengo un problemilla con un método. Me da un error en el case of y no se porque. El código es el siguiente:

procedure TTFormEnvConfig.SeleccionarDirectorio(Sender: TObject);
var
opcion: string;
begin
case (Sender as TComponent).Tag of
1: opcion:=DirTrabajo.text;
2: opcion:=DirTmp.text;
3: opcion:=DirIconos.text;
4: opcion:=DirConsola.text;
5: opcion:=DirInternet.text;
6: begin
DirCompilador.InitialDir := rutaCompilador;
if DirCompilador.Execute then
editDirCompilador.Text := DirCompilador.FileName;
end;
end;
end;

El error me lo da donde está la linea roja...("Error:Original type required")

Gracias de antemano a todos

Un saludo

[[duilioisola]]

Creo que te faltan algunos paréntesis...

Código Delphi [-]
procedure TTFormEnvConfig.SeleccionarDirectorio(Sender: TObject);
var
   opcion: string;
begin
   case ((Sender as TComponent).Tag) of
      1: opcion:=DirTrabajo.text;
      2: opcion:=DirTmp.text;
      3: opcion:=DirIconos.text;
      4: opcion:=DirConsola.text;
      5: opcion:=DirInternet.text;
      6: begin
            DirCompilador.InitialDir := rutaCompilador;
            if DirCompilador.Execute then
            editDirCompilador.Text := DirCompilador.FileName;
         end;
   end;
end;

[Maria85]

gracias de todas formas,
pero tampoco me funciona con los parentesis....

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

Revisa las opciones de configuración del proyecto (sobre todo pestaña de compilación), porque a mi un código como este no me da error al compilar:

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
var
  opcion: string;
begin
  case (Sender as TComponent).Tag of
    1: opcion:='bb';
    2: opcion:='aa';
  end;
end;

[Maria85]

Muchas gracias, voy a seguir intentandolo!

[[duilioisola]]

El error que te da es "Original type required" o es "Oridinal type required"?

Si es el segundo, la siguiente pregunta es si has modificado la propiedad TAG del objeto "Sender". Esta debe ser de un tipo ordinal (enteros, word, char). No puede ser un string, un float, un array.

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