Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.18;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.012 c
2-1149012980
JTAG
2006-05-30 22:16
2006.06.18
Господа подскажите пожалуйста как сделать чтобы в StringGrid


9-1131338381
JUS
2005-11-07 07:39
2006.06.18
DXWaveList1 : DelphiX


11-1127963931
dvk
2005-09-29 07:18
2006.06.18
KOL+MCK 2.13/ Проблемы с установкой


2-1149082237
ancot
2006-05-31 17:30
2006.06.18
Сохранение record в TList


15-1148282004
balepa
2006-05-22 11:13
2006.06.18
Начинающим нефурыкает ? или тока у меня





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский