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: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.