Kümeler le yapılabilirmi

[Nemesis2005]

Selam
başımda bir sorun var işin içinden çıkamadım

elimde bir Field isimlerini olduğu değerler var
(Stok_kodu,stok_adi,Alis_fiat1) gibi

ve ben bunları söyle bir kontrolden geçirmek istiyorum

Kod: Tümünü seç

  for i:=0 to Query1.FieldCount-1 do
  begin
    if (Query1.Fields.Fields[i].FieldName in Sat) Then
    begin
      chklistSec.Items.Add(Query1.Fields.Fields[i].FieldName);
    end;
  end;

burada ki sat elimdeki field isimlerinin olacağı küme olacak ama bir türlü yapamadım.yardımcı olursanız sevinirim.

[miskin]

TStrings nesnesi ile dene.
TStrings'in, kendi Itemlerinin indexini buldugu, bir funktionu var.

Kod: Tümünü seç

Sat := Tstrings.Create;

for i:=0 to Query1.FieldCount-1 do 
begin 
    if Sat.indexOf(Query1.Fields.Fields[i].FieldName) >= 0 then 
    begin 
      Sat.Add(Query1.Fields.Fields[i].FieldName); 
    end; 
end;
Sat.free;

[aLonE CoDeR]

Merhaba.
">= 0" derseniz listede varsa demektir, yani varsa yine eklemiş olursunuz..
Kolay gelsin.

[vedatkaba]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); 
type 
kume=set of char; 
var 
th:kume; 
k:integer; 
begin 
th:=['ı','İ','ü','Ü','ş','Ş','ö','Ö','ç','Ç','ğ','Ğ']; 
for k:=1 to length(edit1.text) do 
   begin 
   if edit1.text[k] in th then 
   showmessage('Lütfen Türkçe karekter kullanmayınız.'); 
   end; 
end;

yukarıdaki örneğe bakarsan küme nasıl kullanılmış..

sende sat küme adın ise bu şekilde yap.

Kod: Tümünü seç

for i:=0 to Query1.FieldCount-1 do 
  begin 
    if Query1.Fields.Fields[i].FieldName in Sat Then 
    begin 
      chklistSec.Items.Add(Query1.Fields.Fields[i].FieldName); 
    end; 
  end;

[miskin]

Merhaba.
">= 0" derseniz listede varsa demektir, yani varsa yine eklemiş olursunuz..
Kolay gelsin.

evet haklisiniz

Kod: Tümünü seç

Sat := Tstrings.Create; 
for i:=0 to Query1.FieldCount-1 do 
begin 
    if Sat.indexOf(Query1.Fields.Fields[i].FieldName) = -1 then 
      Sat.Add(Query1.Fields.Fields[i].FieldName) 
end; 
Sat.free; 

[Nemesis2005]

Tüm cevap yazan arkadaşlara teşekkürler @vedatkaba'nın yazdığı çuk oturdu. iyi çalışmalar

[vedatkaba]

cuk değil hocam

Kod: Tümünü seç

cukka

oturdu.deilmi yani.kolay gelsin arkadaşlar.........

[ender_arslanturk]