| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Chto-to menja gljuchit... pomogite vidti iz pike.. :) [D6, D7, WinXP]

FireSonic ©   (2006-07-04 03:24:00) 

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:53:00) [1]

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


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

---

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

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

---

Джо   (2006-07-04 03:35:00) [3]

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;


---

Наверх