Скачать: CL | DM;

Chto-to menja gljuchit... pomogite vidti iz pike.. :)   Найти похожие ветки 

← →
FireSonic   (2006-07-04 03:24) [0]

Chto ne tak????
Smisl v tom, chto v odnoy ComboBox-e s nachala net nichego, totom dolzni dobavljatsja vse zapisi iz spiska (ListBox) pri etom ne dolzno bit" zapisano povtoreniy, t.e. teh, kotorie uze budut pojavljatsja v ComboBoxe po mere prohozdenija processa....

Spat" hochu - ne mogu... y kogo mozgi eshe svezie podskazite.. zaranee spasibo! :)

       for t1 := 0 to (Form7.bCompany.Items.Count - 1) do begin
       TT := Form7.bCompany.Items.Strings[t1];
       if cbR_COM.Items.Count < 1 then begin
         cbR_COM.Items.Add(TT);  ////// pervaja zapis"
       end else begin
         for t2 := 0 to (cbR_COM.Items.Count - 1) do begin
           if cbR_COM.Items.Strings[t2] <> TT then begin
             cbR_COM.Items.Add(TT);
           end else begin
             Exit; /////// exit from both loops !!!!!!!!!!????? Why?
           end;
         end;
       end;

---

← →
Джо ©   (2006-07-04 03:35) [1]

var
 I: Integer;
begin
 ComboBox1.Items.BeginUpdate;
 try
   for I := 0 to ListBox1.Count-1 do
     if ComboBox1.Items.IndexOf(ListBox1.Items[I]) = -1 then
       ComboBox1.Items.Add (ListBox1.Items[I]);
 finally
   ComboBox1.Items.EndUpdate
 end;
end;


---

← →
FireSonic   (2006-07-04 03:46) [2]

Super!
Spasibo. Vot ja tormoz !!! :)))))))

---

← →
Германн ©   (2006-07-04 03:53) [3]

>  Exit; /////// exit from both loops !!!!!!!!!!????? Why?


Exit - выход из процедуры (функции), а не из цикла(ов)!
Для манипулирования циклами пользуй при необходимости Break или Continue.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c