Форум: "Прочее";
Текущий архив: 2006.06.18;
Скачать: [xml.tar.bz2];

Вниз

Чё то я запутался.   Найти похожие ветки 

← →
Cerberus ©   (2006-05-26 23:13) [0]

Надо чтоб перебирал весь двухмерный массив.
Извените за кривой код.  
for i := 1 to num2 do begin
// memo1.Lines.Add("as"+inttostr(i));
 for j := 1 to num1 do begin
   if EditMas[i,3] = ConstMas[j,6] then begin
   if EditMas[i,8] = ConstMas[j,2] then begin if EditMas[i,5] = ConstMas[j,5] then TestMas[i,1] := "1"; TestMas[j,2] := "1";  end;
   if EditMas[i,8] = ConstMas[j,2] then begin if EditMas[i,5] <> ConstMas[j,5] then TestMas[i,1] := "2"; TestMas[j,2] := "1"; end;
   if EditMas[i,8] <> ConstMas[j,2] then begin if EditMas[i,5] = ConstMas[j,5] then TestMas[i,1] := "3"; TestMas[j,2] := "1"; end;
//    memo1.Lines.Add(EditMas[i,3] + ConstMas[j,6] + EditMas[i,8] + ConstMas[j,2] + EditMas[i,5] + ConstMas[j,5]);

   end;
 end;
 end;


---

← →
unknown ©   (2006-05-26 23:19) [1]

1) Что-то не так с проектированием, судя по всему.
2) Оформление кода оставляет желать лучшего. Посему нет желания разбираться.

---

← →
Cerberus ©   (2006-05-26 23:47) [2]

> 1) Что-то не так с проектированием, судя по всему.

Похоже что да.
Он второй цикл проходит не полносью.
Надо чем то заменить структуру if .. then .. begin .. end;

---

← →
unknown ©   (2006-05-27 00:39) [3]

> Cerberus ©   (26.05.06 23:47) [2]
> Надо чем то заменить

if ()and()and()... then

---

← →
Kolan ©   (2006-05-27 00:43) [4]

перебор примерно так выглядит:

for I := Low(Arr) to High(Arr) do
 for J := Low(Arr[I]) to High(Arr[I]) do
 begin

 end;

---

← →
unknown ©   (2006-05-27 00:54) [5]

> Kolan ©   (27.05.06 00:43) [4]

В [0] тоже самое. Правда 1 to numx выглядит странно. Да и остальное тоже.
Но автор наврядли рассекретит тз :)

---

← →
Kolan ©   (2006-05-27 00:59) [6]

Тоже, да не то. Конструкция [4] дает гарантию, что индексы будут верные, а [0] - нет.

---

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

Форум: "Прочее";
Текущий архив: 2006.06.18;
Скачать: [xml.tar.bz2];

Наверх

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