Código Delphi
[-]type TObjeto = class(TObject)
.......
end;
...........
procedures TObjeto.Asignar(nombrePropiedad:AnsiString;datoNuevo:?); begin
.....
end
La funcion Asignar es un método del objeto por lo que no intervienen mas objetos que el que llama al método.
Esta funcion en principio deberia ser capaz de cambiar el valor de una de sus propiedades simples, es decir, propiedades como el caption de un TButton por ejemplo que es de tipo AnsiString.
Como dije en el correo anterior, el problema que se me plantea y por el que no puedo usar la informacion proporcionada por rtti es en el segundo parámetro del método asignar. De que tipo de dato es?, depende de la propiedad que indique en el primer parámetro. Lo que esta claro es que no existen funciones condicionales en la que el tipo de uno de sus parámetros venga en función de otro parámetro de la misma rutina.
El primer parámetro no tiene problema, es el nombre de la propiedad a la que quiero cambiar su valor.
Por tanto, las posibles soluciones que veo son:
* sobrecargar el procedimiento asignar:
- procedure TObjeto.asignar(NombrePropiedad:AnsiString;valor:integer)overload;
- procedure TObjeto.asignar(NombrePropiedad:AnsiString;valor:double)overload;
-.... y asi con todos los tipo simples.
* pasar el segundo parámetro como pointer y dentro de la rutina averiguo el tipo al que apunta el pointer (a un entero,a un real, booleano, string,....), hago el casting y realizo la asignacion.
Pero claro, ¿como me entero de a lo que apunta un pointer, si lo unico que puedo averiguar a través del pointer es la direccion que tiene almacenada pero no que es lo que representa?. Por esta razón creo que voy a optar por sobracargar la rutina Asignar, una por cada tipo de dato simple. Y mira que lo del pointer me parecia una solucion mas elegante, pero no se puede tener todo en la vida
, se puede tener sexo, alcohol pero no un pointer con mas conversacion.
Gracias por la ayuda. Un saludo.
Salud y delphi