Чё то я запутался.

← →
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;

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

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

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

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