Там не должно быть
#pas
result3883:= Length(ArrayItem[0,0])
for i884 := 1 to result3883 do
Должно было быть:
#pas
for i884 := 1 to Length(ArrayItem[0,0]) - 1 do
Tad писал(а):
А вот так я бы написал рукамиЯ потратил на эту схему 2 минуты. Руками я бы потратил день на написание, еще день на ошибки. И еще день на отдых после этого . Соотношение скорости и усилий 1 к - сколько раз помещается, в трех сутках, по 2 минуты
Кроме этого, если бы мне пришлось фиксить какой-то баг через месяц, в этой схеме я бы его увидел за 2 минуты, а в коде еще день на поиск, и день на отдых.
А так выглядит эта функция среди других функций, если в мультике выйти на уровень выше:
verh1.png
Разобраться, что к чему занимает ноль времени и сил, хотя каждый кубик генерит много подобного кода.
Я очень уважительно отношусь к программистам "в коде", они более битые и более дисциплинированные, именно потому, что код, сцуко, сложный )