Nesneye ait özelliği string olarak görmek hak.

[kahraman1285]

Mrb.
Nesneye ait özellikleri "string" olarak görebilir yada bir label,edite yazdırabilirmiyiz?

Mesela TrzLabel (Raize ait label) nesnesinin "boreder Inner" özelliğini ögrenmek istiyorum.
Şu anki bilgilerim ışığında bunu şu şekilde yapabiliyorum.

Kod: Tümünü seç

if Rzlabel1.BorderInner=fsNone then Showmessage('Derinlik yok');
if Rzlabel1.BorderInner=fslowered then Showmessage('Derinlik içe doğru');
...
...
..
.  (borderInner:TFrameStyle)

gibi devam eden 9 adet if then else yazmalıyım.

Bunun yerine

Kod: Tümünü seç

Var Kose:string;
Kose:=Rzlabel1.BorderInner;

gibi bi ifade kullanabilirmiyiz.böyle bi ifade yazdığımda haliyle delphi hata veriyor.

Kod: Tümünü seç

incompatible types:'String' and 'Tframestyleex'

anlatmaya çalıştığım gibi herhangi bir nesnenin string olmayan özelliğini string hale çevirebilirmiyiz? Özelliği öğrenmenin başka bir yolu varmı?

Herkese kolay gelsin...

[sadettinpolat]

enumerated type lari string olarak rtti kullanarak alabilirsin.

Kod: Tümünü seç

uses TypInfo;

caption:=GetEnumName(typeinfo(TFrameStyle),ord(Rzlabel1.BorderInner))

[sabanakman]

Mrb;

f Rzlabel1.BorderInner=fsNone then Showmessage('Derinlik yok');
if Rzlabel1.BorderInner=fslowered then Showmessage('Derinlik içe doğru');
...
...
..
.

Bu gibi durumlarda case kullanmak daha pratiktir.

Kod: Tümünü seç

case Rzlabel1.BorderInner of
  fsNone:Showmessage('Derinlik yok');
  fslowered:Showmessage('Derinlik içe doğru');
  .
  .
//else Showmessage('Bilinmiyor');
end;

gibi. Kolay gelsin.

uses TypInfo;

caption:=GetEnumName(typeinfo(TFrameStyle),ord(Rzlabel1.BorderInner))

ise hemen kayıtlarıma geçti .

[kahraman1285]

Cevaplar için teşekkürler sayın saadettinpolat'ın çözümü bana yeni bir şey öğretti ..

Teşekkür ederim...