сравнение листбоксво делфи

[SonicBob]

народ есть вот такой кусок программы

надо сравнивать построчно содержимое боксов координат Z
но предварительно сравнить X и Y
надо что б X Y Z из первого при одинаковых индексах сравнивалось с такми же индексами из дополнительного, как сделать такое большое сравнение в одном цикле?

[derElektroBesen]

А в чем то собственно проблема? Если необходимо, можно и под один иф запихать под сто условий))) Я конечно не говорю, что так делать нужно, но) Если других идей нет, то почему нет.
В общем если я понял вопрос, и Вас интересует просто, можно ли тучу условий положить в один цикл, то могу только сказать, что если не видно в дали иных решений, то действуйте в лоб.

[denisbrain]

Сообщение от SonicBob

народ есть вот такой кусок программы

надо сравнивать построчно содержимое боксов координат Z
но предварительно сравнить X и Y
надо что б X Y Z из первого при одинаковых индексах сравнивалось с такми же индексами из дополнительного, как сделать такое большое сравнение в одном цикле?

var x:integer;
begin
for X:=0 to form1.ComponentCount-1 do
  if form1.Components[x].ClassType=TListBox then begin
     if TlistBox(form1.Components[x]).ItemIndex=2 then

  end;
end;

перебор всех листбуксов

[SonicBob]

var
Count1,Count11,i,k: Integer;
lx1,lx2,ly1,ly2,lz1,lz2,sr:real;

begin
if listbox2.Items.count=0 then showmessage('íåò èñõîäíûõ äàííûõ èëè íåáûëî ïðîèçâåäåíî ðàçäåëåíèå ïî ñòîëáàöàì');
if listbox11.Items.count=0 then showmessage('íåò äàííûõ ëÿ ñðàâíåíèÿ');
for i:=0 to ListBox2.Items.count-1 do
 Count1:=ListBox1.Items.Count;
 Count11:=ListBox11.Items.Count;  //ïðîâåðÿåì îäèíàêîâîå ëè êîëè÷åñòâî ñòðîê â áîêñàõ
 If Count1-Count11=0 then
   begin
   for i:=0 to ListBox2.Items.count-1 do
   lx1:=strtofloat(ListBox2.Items.strings[i]);
   for k:=0 to ListBox12.Items.count-1 do         //ïðîâåðÿåì íà îäèíàêîâîñòü êîîðäèíàòû Õ
   lx2:=strtofloat(ListBox12.Items.strings[k]);
   if lx1-lx2=0 then
          begin
          for i:=0 to ListBox3.Items.count-1 do
          ly1:=strtofloat(ListBox3.Items.strings[i]);
          for k:=0 to ListBox13.Items.count-1 do         //ïðîâåðÿåì íà îäèíàêîâîñòü êîîðäèíàòû Y
          ly2:=strtofloat(ListBox13.Items.strings[k]);
          if ly1-ly2=0 then
                     begin
                     for i:=0 to ListBox4.Items.count-1 do              //ïðîâåðÿåì íà îäèíàêîâîñòü êîîðäèíàòû Z. Óðà äîáðàëèñü
                     ly1:=strtofloat(ListBox4.Items.strings[i]);
                     for k:=0 to ListBox14.Items.count-1 do
                     ly2:=strtofloat(ListBox14.Items.strings[k]);
                     sr:=ly1-ly2;
                     ListBox19.Items.Add(floattostr(sr))
                     end
          else
          showmessage('Íå ñîîòâåòñâèå êîîðäèíàò Y (áëîêè ñäâèíóòû)')  //íå îäèíàêîâûå êîîðäèíàòû Y = ïðåðûâàíèå
          end
   else
   showmessage('Íå ñîîòâåòñâèå êîîðäèíàò X (áëîêè ñäâèíóòû)')    //íå îäèíàêîâûå êîîðäèíàòû Õ = ïðåðûâàíèå
   end
 else
 showmessage('êîëè÷åñòâî ñòðîê íå îäèíàêîâîå íàäî óðàâíÿòü');  //åñëè íå îäèíàêîâîå êîëè÷åñòâî ñòðîê - îáðûâàíèå
end;

сделал так но почему цикл не хочет в начало добавляется просто все на первой строке обрывается,

var x:integer;
begin
for X:=0 to form1.ComponentCount-1 do
  if form1.Components[x].ClassType=TListBox then begin
     if TlistBox(form1.Components[x]).ItemIndex=2 then

  end;
end;

а как к такому прикрутить проверку ? что то я не доконца понимаю принцип работы

почему это вешает комп?

[denisbrain]

сделал так но почему цикл не хочет в начало добавляется просто все на первой строке обрывается,

var x:integer;
begin
for X:=0 to form1.ComponentCount-1 do
  if form1.Components[x].ClassType=TListBox then begin
     if TlistBox(form1.Components[x]).ItemIndex=2 then

  end;
end;

а как к такому прикрутить проверку ? что то я не доконца понимаю принцип работы[/QUOTE]

можешь в аську написать лучше сегодня в Воскресенье, или в понедельник после 15-00 мска

[SonicBob]

из 100+ просмотров че никто не мог обьеснить почему выше описанный код вешает комп? когда обрабатывается больше 5000 строк?

[Zer0]

прямо таки комп? или программу?)

[Stilet]

че никто не мог обьеснить почему выше описанный код вешает комп?

Наверное потому что циклов слишком много.
Обьясни зачем тебе нужны эти сравнения.

[evg_m]

   for i:=0 to ListBox2.Items.count-1 do
   lx1:=strtofloat(ListBox2.Items.strings[i]);
   for k:=0 to ListBox12.Items.count-1 do         //ïðîâåðÿåì íà îäèíàêîâîñòü êîîðäèíàòû Õ
   lx2:=strtofloat(ListBox12.Items.strings[k]);
   if lx1-lx2=0 then

ни один из операторов for не имеет операторных скобок (begin end) Значит:
в циклы включен ТОЛЬКО один оператор
анализ происходит ПОСЛЕ циклов.
в анализе участвуют только ПОСЛЕДНИЕ в в списке.
далее аналогично.

[SonicBob]

Сообщение от Zer0

прямо таки комп? или программу?)

да ты прав только прогу просто уже бесило что не могу понять причину

Сообщение от Stilet

Обьясни зачем тебе нужны эти сравнения.

даны 2 пачки координат, надо произвести сравнение высот изменение высот со временем, но для того что б адекватно сравнить изменение высот со временем мне надо произвести сравнение координат X и Y если X Y из разных пачек совпадают то идёт сравнение высот, вот ради этого все и задумано.