ComboBox1.Items.Add

[mnhas]

Arkadaşlar Merhaba,
Bir Dat dosyasındaki verileri ComboBox'a konu başlığındaki, komutla ilave ediyorum. Ancak dosyada bir veri yaklaşık 5-6 defa tekrarlanıyor. Bunları bir alt loop ile denetleyince (yaklaşık 1500 kayıtta) işlem çoook uzun sürüyor. Önereceğiniz bir çözüm olur mu?

[naile]

comcobox1.LoadFromFile

ile yapabilirsiniz.

[Fatih!]

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject);
begin
combobox1.Items.LoadFromFile('xxx.txt');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
combobox1.Items.savetoFile('xxx.txt');

end;

[mnhas]

İlginize teşekkür ederim ama bu amaçla bir dosya daha oluşturmak istemiyorum.

[mrmarman]

Merhabalar...

- İkinci bir döngüden bahsettiniz açar mısınız ?

- ComboBox'a eklenenler içerisinde yoksa yeni ekleme yap şeklinde aşağıdaki gibi bir if satırını kullanmayı denediniz mi ?

Kod: Tümünü seç

if ComboBox1.Items.IndexOf(StringVeri) < 0 then ComboBox1.Items.Add(StringVeri);