Tobject nesnesinden Name Nasıl Alınır? (Çözüldü)

[adelphiforumz]

SA

bir TObject nesnesinden object'i as yapmadan objenin adını nasıl alabilirim.

(xObject as TButton).Name gibi her obje için bir satır yazmak istemiyorum
bir döngü halinde form üzerindeki tüm objelere işlem yapmak istiyorum

Teşekkürler

[yusuf simsek]

for iDongu := 0 to self.ComponentCount - 1 do
begin
if ( self.Components[ iDongu ] is TButton ) memo1.Lines.Add( (self.Components[iDongu] as TButton).Name );
end;

[unicorn64]

delphi versiyonunuz nedir? yanlış bilmiyorsam delphi2007 ve sonrasında gelen özellikle nesnenin property lerine erişebiliyoruz.
aşağıdaki metodla parametre olarak geçtiğiniz nesnenin Name property sini string olarak alabilirsiniz.
kodu denemedim, kontrol edersiniz.

Kod: Tümünü seç

function GetObjectName(aObject:TObject):string;
var
  ctx: TRttiContext;
  t: TRttiType;
  p: TRttiProperty;
begin
   result:='';
   ctx := TRttiContext.Create;
   t := ctx.GetType(aObject.ClassType);	
   for p in t.GetProperties do
   begin
    if p.Name = 'Name' then
    begin
      result:=p.GetValue(aObject).AsString; 
      break;
    end;
   end;
end;

[SimaWB]

Yanlış bilmiyorsam Name özelliği TComponent class'ından itibaren var. Dolayısıyla Form'un Components özelliği(listesi) sizin aradığınız liste olabilir.

Kod: Tümünü seç

with Form1 do
  for I := ComponentCount - 1 downto 0 do
  begin
     Components[I].Name //bu şekilde forma ait tüm bileşenlerin isimlerine ulaşırsın
  end;

Mesela Panel1'in üzerindeki bileşenlerin isimlerini öğrenmek istersen sadece with 'ten sonraki Form1 yerine Panel1 yazarsın...

[adelphiforumz]

Bende söyle bşey buldum

bir objenin istenen değeri alınabiliyor
xObjectName := GetStrProp(pObject, 'Name');

Set etme işlemide şöyle
SetStrProp(pObject, 'Name', xObjectName);