TRemotable

[m_ekici]

s.a.
Şu RTTI işini pek çözemedim. Web Servis ten bilgi alıyorum. aşağıdakş gibi bir yapı var.

Kod: Tümünü seç

Takip = class(TRemotable)
  private
    FfaturaTeslimNo: WideString;
    FTakipNo: WideString;
    FbransKodu: WideString;
    FTCKimlikNo: WideString;
    ......

buradaki Takip sınıfındaki fFaturateslimno,FtakipNo gibi Stringlerdeki bilgilere isimlerini kullanmadan nasıl ulaşırım.
yani Takip'e kayıtlı property leri ve bunlara ait bilgileri nasıl alırım.

atıyorum

Kod: Tümünü seç

for n:=0 to (Takip.bağlıdeğişkensayısı) do
begin 
   Showmessage(
   takip.bağlıdeğişken[n].adı +'=' +takip.bağlıdeğişken[n].değeri; )
end

gibi birşeyi nasıl yaparım
tşk.

[aslangeri]

s.a.
takip sınıfında biraz değişiklik yaparak istediğin şeyi yapabilirsin.
sınıfa "alansayısı" isminde bir özellik eklersin. buna sınıfın "constructor"ında sabit deger atarsın.
çünkü alan sayısını sen biliyorsun.
birde fonksiyon yaparsın

Kod: Tümünü seç

function getAlanDegeri(i:integer):string;
Begin
  case i of
    0:result:=ffaturateslimno;
    1:result:=FTakipno;
    2:result:=fBransKodu;
   .....
    else result:='';
  end;
End;

istersen bu fonksiyonu "overload" edip integer,datetime,float alanlar içinde kullanabilirsin.
aynı şekilde "getAlanAdi" isminde bir fonksiyon yazarak i nin hangi alana denk geldiğinide bulabilirsin.
Takip sınıfına yeni bir alan eklediğin zaman bu fonksiyonları ve alansayisi özelliğinide güncellersin.
kolay gelsin.

[m_ekici]

Bu Web Servis benim müdehale edebileceğimceğim bir servis değil ve belli aralıklarla güncelleniyor. o nedenle ben değişkenlere ulaşmak istiyorum.