Hola,
Entonces esto que he estado haciendo no tenía nada que ver...
Código Delphi
[-]
var
frmPrincipal: TfrmPrincipal;
type
TUnaClase = class(TComponent)
private
FPropiedad: string;
published
property Propiedad: string read FPropiedad write FPropiedad;
end;
implementation
{$R *.DFM}
uses
TypInfo;
var
FUnaClase: TUnaClase;
procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
FUnaClase := TUnaClase.Create(Self);
FUnaClase.FPropiedad := 'Probando.';
end;
procedure TfrmPrincipal.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
FUnaClase.Free;
end;
function PropiedadString(const nombrePropiedad: string;
const componente: TComponent) : string;
var
propInfo: PPropInfo;
begin
Result := '';
propInfo := GetPropInfo(componente.ClassInfo, nombrePropiedad);
if Assigned(propInfo) then
Result := GetStrProp(componente, propInfo);
end;
procedure TfrmPrincipal.Button1Click(Sender: TObject);
begin
ShowMessage(PropiedadString('Propiedad', FUnaClase));
end;
end.