Listar properties publicas de uma classe

Question

Ol� a todos, a quest�o � a seguinte, tenho uma classe simples:typeTClientes = class  private    FSexo: string;    FNome: string;    FChave: integer;    procedure SetChave(const Value: integer);    pro...

Quartieri · Answer

up...

Marco Salles · Answer

[quote:8786eba71a]a quest�o � todo material qu encontrei na net diz que tem que ser [b:8786eba71a]descendente de TComponent[/b:8786eba71a] e as propeties tem que ser [b:8786eba71a]published[/b:8786eba71a] pra eu conseguir recuperar as informa��es com RTTI[/quote:8786eba71a]Ate aonde eu sei isto � condi��o.....

Quartieri · Answer

Valeu Marco, mas sera que num tem jeito mesmo.....?...

Rjun · Answer

Na verdade, a classe precisa ser herdade de TPersistent. Voc� pode at� conseguir de uma classe herdada de TObject desde que na defini��o da classe voc� use {$M+} e {$M-}.

{$M+}
TMyClass = class
end;
{$M-}

Isso eu n�o testei, mas pelo que li, funciona. Mas parece que a propriedade realmente precisa ser [b:230b76712b]published[/b:230b76712b].

Marco Salles · Answer

[b:e0c87ac62a]cita��o de RJun[/b:e0c87ac62a]

Na verdade, a classe precisa ser herdade de TPersistent.

Muito bem colocado...

Voc� pode at� conseguir de uma classe herdada de TObject desde que na defini��o da classe voc� use {$M+} e {$M-}. C�digo: {$M+} TMyClass = class end; {$M-} Isso eu n�o testei, mas pelo que li, funciona. Mas parece que a propriedade realmente precisa ser published.

excelente informa��o...

Quartieri · Answer

Opa, essa ajuda j� foi otima, :)Brigad�o....

Quartieri · Answer

Pessoal....Deu Certo!!!
olha s� a classe:

**********************
type
{$M+}
TMyClass = class
private
FTel: string;
Fchave: integer;
Fnome: string;
procedure Setchave(const Value: integer);
procedure Setnome(const Value: string);
procedure SetTel(const Value: string);
published
property chave : integer read Fchave write Setchave;
property nome : string read Fnome write Setnome;
property Tel : string read FTel write SetTel;
end;
{$M-}

**********************

c�digo pra ler as properties :

**********************

procedure TForm1.Button2Click(Sender: TObject);
var
Count, Loop: Integer;
List: PPropList;
begin
Count := GetPropList(TypeInfo(Tmyclass), tkAny, nil);
GetMem(List, Count * SizeOf(PPropInfo));
try
GetPropList(TypeInfo(Tmyclass), tkAny, List);
for Loop := 0 to Pred(Count) do
memo1.lines.Add(List^[Loop]^.Name);
finally
FreeMem(List, Count * SizeOf(PPropInfo));
end;
end;

**********************
Marcos e RJun, muito obrigado. :)

Marco Salles · Answer

Boa mesmo.......

F�rum Listar properties publicas de uma classe #343753