Tag Özeliği nedir ?

[yazboz]

merhaba

Kod: Tümünü seç

Tag öğenin bir parçası olarak bir sayısal (integer) değer saklar.
property Tag: Longint;

Tag'ın önceden tanımlanan bir anlamı yoktur. Uygulamalarda özel olarak bir sayısal değer saklamak amacıyla kullanılır. Programlamada kullanıcıya kolaylık sağlar. Mesela case durumlarında bunu kullanabilirsiniz.

[Tag] özeliği hakında böyle bilgi edindim . Fakat tam olarak ne işe yaradığını, ne zaman kullanılır , hangi amaçlar için kullanılır.
tam olarak ve örnek vererek bizi bilgilendirirseniz çok seviniriz

saygılarımla

[mussimsek]

a.s.

Serbest eçimlik bir alan. Ben genelde birden fazla menüyü tek bir event'a bağladığım zaman kullanıyorum.

case (Sender as TMenuItem).Tag of

gibi. Değişik amaçlarda da kullanabilirsin. Mesela dil dönüşümlerinde, tag özelliğini kullanabilirsin. Bkz : Doğan abinin makalesi.

Kolay gelsin.

[yazboz]

teşekkürler

[Opt2000]

Selam,

Tag özelliğinin integer olmasının çok büyük bir avantajı var. Nesnenin Tag özelliğine herhangi bir pointer atayabilirsin. Basit bir örnek vereyim.

Kod: Tümünü seç

type
  POgrenciBilgileri = ^TOgrenciBilgileri;
  TOgrenciBilgileri = record
  Adi:string;
  Soyadi:string;
  ....
end;

procedure SetTag(AControl:TControl);
var
  OI:POgrenciInfo;
begin
  New(OI); 
  AControl.Tag := integer(OI);
end;

function GetTag(AControl:TControl):POgrenciInfo;
var
  OI:POgrenciInfo;
begin
  OI:=Pointer(AControl.Tag);
  Result:=OI;
end;

Yukarıdaki örnek basit ve biraz da anlamsız, ama özellikle dinamik bellek yönetiminin bolca olduğu bir programda fazlaca işe yarıyor. Gerçi Tag değerinin böyle kullanılması programın bütünlüğü ve tasarımı ile ilgili biraz sıkıntılar doğuruyor, ama olsun.

Kolay gelsin,
Bahadır Alkaç