Foros Club Delphi - Necesito ayuda

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - Necesito ayuda (https://www.clubdelphi.com/foros/showthread.php?t=63037)

Maria85

27-01-2009 10:25:47

Necesito ayuda

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

27-01-2009 11:07:49

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

27-01-2009 11:12:47

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

Neftali [Germán.Estévez]

27-01-2009 11:15:32

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;

:confused::confused::confused::confused:

Maria85

27-01-2009 11:29:27

Muchas gracias, voy a seguir intentandolo!

duilioisola

27-01-2009 11:30:27

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	27-01-2009 11:43:33

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

Maria85

27-01-2009 12:25:43

Es Ordinal!Tienes razón.

Entonces que debo hacer??

Neftali [Germán.Estévez]

27-01-2009 12:27:01

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

27-01-2009 12:30:11

Me funciona!!!

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

Un saludo y gracias

Al González

27-01-2009 16:37:56

Cita:

Empezado por coso (Mensaje 336054)

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. :p

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

Saludos.

Al. :)

coso	27-01-2009 17:29:42

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

roman

27-01-2009 17:38:57

Cita:

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 :D

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	27-01-2009 17:45:32

Cita:

Para mi que coso se confunde con VB :D

es posible es posible :rolleyes:

coso	27-01-2009 17:47:28

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

Al González

27-01-2009 19:22:06

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

Cita:

Empezado por roman (Mensaje 336114)

...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. :)

La franja horaria es GMT +2. Ahora son las 11:01:21.