¡Hola Poyo!
Aunque quizá hay mejores soluciones (habría que ver el fondo de esta necesidad
), se me ocurre, por ejemplo, el uso de
propiedades con índice y tener un arreglo global con todos los valores posibles de la constante de clase.
Desarrollé un ejemplo para ilustrarlo:
Código Delphi
[-]
implementation
{$R *.dfm}
Uses
TypInfo;
Const Cadenas :Array [0..2] Of String = ('X de TA', 'X de TB', 'X de TC');
Type
{$TypeInfo On} TA = Class
Private
Function GetX (Indice :Integer) :String;
Published
Property X :String Index 0 Read GetX;
End;
{$TypeInfo Off}
TB = Class (TA)
Published
Property X Index 1;
End;
TC = Class (TA)
Published
Property X Index 2;
End;
Function TA.GetX (Indice :Integer) :String;
Begin
Indice := GetPropInfo (Self, 'X').Index;
Result := Cadenas [Indice];
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
A, B, C :TA;
begin
A := TA.Create;
B := TB.Create;
C := TC.Create;
ShowMessage (A.X);
ShowMessage (B.X);
ShowMessage (C.X);
A.Free;
B.Free;
C.Free;
end;
Anexo el código en un archivo .zip.
Saludos.
Al González.