Existe alguma forma de converter o conteúdo de uma string num atributo do objeto?

Tenho a seguinte Classe (Exemplo):

type
    TTeste = class
       private
            FVa : String;
            FVb : String;
            FVc : String;
       public
            constructor Create; overload;
            
            property Va : String read FVa write FVa;
            property Vb: String read FVb write FVb;
            property Vc: String read FVc write FVc;
    end;

A classe q estou utilizando tem varios atributos, esse eh so um exemplo.  O que tou querendo eh o seguinte... como eh que eu faço para encontrar dinamicamente o nome dessas propriedades (Va, Vb, Vc) e retornar seus valores? Tem como fazer isso? Espero que vcs entendam oq quero com o exemplo abaixo:

var
     Software : TTeste; // Software eh instanciado no OnCreate do Form


constructor TTeste.Create;
begin
   inherited Create;

   FVa := 'Teste A';
   FVb := 'Teste B';
   FVc := 'Teste C';
  
end;


function getDescricaoCampo(Sender: TObject): String;
var
    campo : String;
begin
    // essa variavel CAMPO recebe o caminho de acesso ao atributo
    // exemplo do resultado: campo := 'Software.Va';
    campo :=  'Software..'+ copy(TEdit(Sender).Name, 4, Length(TEdit(Sender).Name));
   
        // Aqui eh que nao to sabendo fazer:
    // A função está retornando a valor de CAMPO (Software.Va) e nao o conteudo de SOFTWARE.VA ('Teste A')
    // Alguem sabe como devo fazer??
    result := campo;
end;


Abraço

[As partes desta mensagem que não continham texto foram removidas]



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE


Links do Yahoo! Grupos

Responder a