procedure TForm1.JvCheckListBox1Click(Sender: TObject);
var i :integer;
begin
if GetCheckedCount>3 then
begin
showmessage('daha fazla seçemezsiniz');
i:=JvCheckListBox1.ItemIndex;
if JvCheckListBox1.Checked[i] then
JvCheckListBox1.Checked[i]:=false;
end
else
[b]buradan sonra ki işlem nasıl yapılmalı yani [/b]
for i:=0 to JvCheckListBox1.Items.count-1 do
if JvCheckListBox1.Checked[i]=true Then
Begin
IBDatabase1.DatabaseName:='C:\xxx\'+JvCheckListBox1.Items+'\DATA.FDB';
IBDatabase1.Connected:=true;
end;
[b]sonra tekrar döngü yaparak[/b]
if JvCheckListBox1.Checked[i]=true Then
IBDatabase2.DatabaseName:='C:\xxx\'+JvCheckListBox1.Items+'\DATA.FDB';
IBDatabase2.Connected:=true;
[b]sonra tekrar döngü yaparak[/b]
if JvCheckListBox1.Checked[i]=true Then
if JvCheckListBox1.Checked[i]=true Then
Begin
IBDatabase3.DatabaseName:='C:\xxx\'+JvCheckListBox1.Items+'\DATA.FDB';
IBDatabase3.Connected:=true;
end;
JvCheckListBox1 de en fazla 3 alan seçtiriyorum.Burada haliyle Checked leri değişken bu işlemden sonra seçili olan verileri IBDatabase.DatabaseName yoluna almak istiyorum.Checked=true sırasıyla IBDatabase1.DatabaseName, IBDatabase2.DatabaseName ,IBDatabase3.DatabaseName yollarına items değerlerini yazmalı.3 değere üç bağlantı olacak.Umarım analatabildim.
Kodun veritabanı bağlantı kısmını CheckListBox'ın OnClick olayında yazmak zorunda mısınız? Sadece en fazla 3 seçimin yapılmasını orada kontrol ettirip Bağlan butonu gibi birşeyle bağlantıları yaptırırsanız
var
i, Cnt: integer;
SelectedItems: TStringList;
begin
SelectedItems := TStringList.Create;
try
for i := 0 to CheckListBox1.Items.count-1 do
if CheckListBox1.Checked[i] then
SelectedItems.Add(CheckListBox1.Items.Strings[i]);
//Kaç tane seçilmiş = SelectedItems.Count
//İlk seçilen Item = SelectedItems.Strings[0]
finally
SelectedItems.Free;
end;
SimaWB çok çok teşekür ediyorum istediğim gibi olmuş.Eyvallah kardeşim
Kodun veritabanı bağlantı kısmını CheckListBox'ın OnClick olayında yazmak zorunda mısınız?
şart değil değiştir dim butona yazdım.Şöyle bir durumda var.CheckListBox da 1 yada 2 veya 3 tane kayıt seçilme olasılıkları var veya iki tane seçili bu durumda data bağlantı konrolunü nasıl yapayım öneri olarak yani
if GetCheckedCount=1 then
..... dataya bağlan şu işlemi yap
if GetCheckedCount=2 then
..... dataya bağlan şu işlemi yap
if GetCheckedCount=3 then
..... dataya bağlan şu işlemi yap
şeklinde mi kontrol ettirmek doğru yoksa yazdığınız koda bir ilave nasıl yapılır.Fikriniz nedir
