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 !!! :)))))))

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

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

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