combobox items liste ekleme

[conari]

Formda var olan combobox içine Delphi de items listden 4-5 satır girdim.
Yalnız, Kullanım aşamasında kullanıcının o alana girmiş olduğu bilgiyede items liste ekletmek istiyorum.

Program aktif iken girilen bilgi yi ekliyor fakat sonlandırıp tekrar çalıştığında doğal olarak Eklenen bilgiyi siliyor.

Txt dosya veya registrye(bir dosya falan oluşturmadan) yazmadan girilen bilgiyi exenin içine nasıl gömebilirim.

iyi çalışmalar

[hdayi]

bildiğim kadarı ile mümkün değil. Bir şekilde bir yerlere yazmanız, daha sonra program yeniden çalıştığında okutmanız lazım.

Kolay Gelsin...

[mussimsek]

Denemedim, yapılabilirliği hakkında çok fikrim yok ama yapmak istediğin mantıklı bir olay değil. .exe'yi değiştirmen bir kere büyük hata...

Kolay gelsin.

[conari]

Şu olayı yapabilirmiyim peki arkadaşım,Dbcombo değil de normal combonun içine query ile çektiğim listedeki bilgiyi ekleyebilirmiyim.

Kod: Tümünü seç

Select adi from tblisim

desem
10 kayıt var burda mesela combo içine girip listelermi??

[conari]

evet haklısın Mustafa Hocam..

[poshet303]

exe yi değiştirmek mümkün ama pahalı bir olay yani uğraştırıcı.

mantıklı bir olay değil

bir de işin bu yönü var. adı üstünde exe. Verini git veritabanına yaz

[heskin35]

bu tip islemlerde veritabaninda bi tablo olusturarak kullanim daha mantikli bi yaklasim olur bence.
query ile listeye ekleme islemi gayet iyi bi cozum gibi geliyor bana.

[lazio]

Şu olayı yapabilirmiyim peki arkadaşım,Dbcombo değil de normal combonun içine query ile çektiğim listedeki bilgiyi ekleyebilirmiyim.

Kod: Tümünü seç

Select adi from tblisim

desem
10 kayıt var burda mesela combo içine girip listelermi??

evet bu şekilde tablodan çektiğin kayıtları tablodaki kayıt sayısı kadar bir döngü oluşturarak combo ya ekleyebilirsin ki en mantıklısıda budur.
he ben yok veritabanıyla uğraşmam diyorsan text dosya gibi yardımcı dosyalar kullanabilirsin, ama exe kesinlikle tavsiye edilmez güncelleştirilme olasılığı olan bir alan için

[conari]

Kod: Tümünü seç

procedure TSform.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Add(Query1isim_soyad.Value);
end;

yukardaki kodla query sonucunu combo içine eklemeyi yapıyorum.Ama tek kayıt atıyor.
Nasıl bir döngü kurmam lazım..

[hdayi]

DElphi açık değil ama:

Kod: Tümünü seç

    Query1.First;
    while not(Query1.Eof) do
    begin
        ComboBox1.Items.Add(Query1isim_soyad.Value);
        Query1.Next;
    end;

(Baktım olmadı açtım Delphi'yi )

Kolay Gelsin...

[rsimsek]

Hocam öncesinde veya OnCreate/OnShow da ;

Kod: Tümünü seç

ComboBox1.Items.Clear;

ile mevcut içeriği temizlemeli

[shadowmann]

Ben ini dosyası kullanmıştım en basit çözüm bu bana kalırsa.

[poshet303]

Kod: Tümünü seç

ComboBox.Items.LoadFromFile();

ComboBox.Items.SaveTofile();

ini dosyası kullanmaktan daha kolay geldi bana.

[White Rose]

s.a.
öncelikle formun show olayına

If Fileexists(Prgdizin+'\GRUP.TXT') Then
Combo_Grup.Items.LoadFromFile(Prgdizin+'\GURUP.TXT');

yazarak daha önce oluşturulmuş bir text varsa bu combobox'un itemine yüklenir. Daha sonra

Combobox'un Exit olayına da

With Combo_Grup do Begin
If (Text<>'') and (Items.IndexOf(Text)<0) Then
Items.Add(Text);
Combo_Grup.Items.SaveToFile(Prgdizin+'\GURUP.TXT');
End;

eklerseniz, combobox'a yazdığınız text i kontrol eder ve eğer bu text comboboxta yoksa iteme ekler ve text dosyasını diske kaydeder.

[conari]

Kod: Tümünü seç

KulCmb.Items.Clear;
KulCmb.Items.Add('Tüm Kullanıcılar');
Query1.First;
    while not(Query1.Eof) do
    begin
        KulCmb.Items.Add(Query1isim_soyad.Value);
        Query1.Next;
END;

kod bloğu ile çözdüm arkadaşlar teşekkürler..;