class içerisindeki değişkenlere sırayla erişmek

[kirve]

Arkadaşlar merhaba. aşağıdaki tipte bir clasım var. istediğim bu class içerisindeki değişkenlere for döngüsü ile teker teker gezip değişken adını almak.
fakat döngü kurmam için class içerisindeki field sayısını alamadım. teşekküler.

Kod: Tümünü seç

  type
  TkpsKimlik=class(TObject)
      private
      public
        FAd         :string;
        Fsoyad      :string;
        FDogumTarih :string;

  end;
 

[SimaWB]

Açıklama yapmadan hazır kod paylaşmayı pek sevmem ama yoğunluktan, bu seferlik böyle olsun

Kod: Tümünü seç

var
  Cxt: TRttiContext;
  Field:  TRttiField;
begin
  for Field in Cxt.GetType(TkpsKimlik).GetFields do
  begin
      ShowMessage(Field.Name);
  end;
end;

[kirve]

teşekkürler