Внутри цикла массив zz (заполняться должна лишь часть) заполняется правильно, по выходу из цикла ВСЕ элементы массива оказываются заполнеными значением переменной slmaxb.
Trade поле записи collection. Масив maski "получается" в начале "кнопки" и по ходу всей программы остается правильным.

Код

for i:= 0 to maxb do  with collection[i] do if (Pos(maski[0], Trade) > 0) and    (length(Trade) >= Pos(maski[0], Trade) + lmaski - 1) then  begin   for j:= 0 to maxb do zz[j]:= -1;   j:= 1; n:= -1;   while (j <= length(Trade)-lmaski+1) do   begin    for slmaxb:= 0 to kmaski do     if copy(Trade, j, length(maski[slmaxb])) = maski[slmaxb] then     begin      inc(n); zz[n]:= slmaxb;      j:= j + length(maski[slmaxb]) - 1; Break;     end;    inc(j); //**   end; //***

В точке ** все павильно, а в *** - все не правильно???
При этом работает лишь на части примеров. На некоторых примерах, ни чем принципиально не отличающихся - не работает.
Раньше место zz стоял массив ez, активно ипользующийся в последующем коде.
Ситуация была просто порадоксальная: стартую; ввожу параметры (1) - работает; ввожу парамеры (2) - не работает; ввожу параметры (1) - не работает; далее независимо от чего-либо - не работает.
Стартую; вожу параметры (2) - не рабоатет; ввожу параметры (1) - не работает; далее независимо от чего-либо - не работает.

Вопросы до кучи:
Что лучше: мало переменных используемых постоянно или много переменных используемых по 1 разу?
Как обнулить (обновить) память?

Это сообщение отредактировал(а) Alex - 29.3.2005, 11:53

Код

for slmaxb:= 0 to kmaski do if copy(Trade, j, length(maski[slmaxb])) = maski[slmaxb] then begin inc(n); zz[n]:= slmaxb; j:= j + length(maski[slmaxb]) - 1; Break; end;

Значит условие выполняется в конце цыкли (или ранььше ..)

1. Я перебираю веь массив записей,
но обрабатываю только те, которые более-менее подходят
2. Перебираю посимвольно строку-поле (Trade).
3. для каэдого символа из строки я проверяю на вхождение маски из maski[]
Если маска есть: запоминаю номер маски, перехожу на другой символ (смещаюсь на длину маски). Чтобы начать анализ с первой (нулевой) маски выхожу из внуьренего цикла (Break).

Black_Joker, лучше мало переменных, он постоянно, главное не пихать их в одни циклы дважды.
по первой проблеме- может дело в локальных переменых, ты какие используешь?

И еще попробуй поработать отладчиком, просмотри переменные на разных этапах - много вещей сразу откроется

for i:= 0 to maxb-1 do...

for j:= 0 to maxb-1 do...

for slmaxb:= 0 to kmaski-1 do...

1. внутри ФОР нельзя изменять счетчик. Поэтому Вайл.

2. Как настроить простмотрщик? при пошаговом просмотре Вочер не работает. F7 работает до первого нажатия кнопки, далее как обычный RUN.

для контроля я использовал поля Мемо.

Цитата(Black_Joker @ 31.3.2005, 13:20)

при пошаговом просмотре Вочер не работает. F7 работает до первого нажатия кнопки, далее как обычный RUN.

Да ну!?
В процессе пошагового выполнения при наведении курсора на интерисующую переменную должно появится ее значение.
Если тебе F7 не нравиться, установи курсор на строку начала твоей процедуры и нажми F4, Делфя дойдет до этой строки и перейдет на код, далее F7

Заработало само собой.
Вчера просто взяло и заработало... (ни каких правок я не делал)

К чему бы это?