Set VeriYapısında Sayma

[gkimirti]

Su an lazım olduda
bir Set tipinde degiskenim var

Kod: Tümünü seç

  TBtn=(bInsert,bEdit,bDel,bDelAll,bPost,bCancel);
  TBtnSet=set of TBtn;

bunu su sekilde kullanıyorum

Kod: Tümünü seç

var
  MyBtnSet:TBtnSet;
  SetCount:Integer;
begin
  MyBtnSet:=[bInsert,bEdit,bDel,bDelAll];
  SetCount:=Count(MyBtnSet);

buradaki Count fonksiyonu benim uydurdugum bi fonksiyon
aslında kendim idareten bir tane yazarım ama
bu isi yapan bir operator yada komut var mı diye
sorayım dedim

[MicroChip]

Vallaha dostum ben bunlar gibi işler için minik minik functionlar yazıyorum. dediğin kod varsada ben bilmiyorum.

[gkimirti]

kendim bir fonksiyon hazırladım ama kumede eleman sayoısı cogaldıkca
(benim ornekte boyle bir sey yok ta) yavaslaması muhtemel

Kod: Tümünü seç

function SetCount(MySet:TBtnSet):Integer;
var
  i:TBtn;
  Count:Integer;
  items: array[TBtn] of integer;
begin
  Count:=0;
  for i:=Low(items) to High(items) do
    if i in myset then inc(Count);
  result:=Count;
end;

[mussimsek]

Merhaba,

hocam Delphi 7 yardımda ordinal routines olarak geçiyor ve 5 adet fonksiyon var. Inc, Odd, Ord, Pred, Succ. Hiçbirisi de dediğin işi yapmıyor. Bana da bir ara sırası lazım olmuştu. Sırasını Ord buluyor.

Hazır fonksiyon yok galiba.

Kolay gelsin.