HiAsm

Ответов: 1429

Рейтинг: 50

#1: 2011-10-09 12:03:59 ЛС | профиль | цитата

Да, но не работает у Tad.
И я проверил отняв еденичку, всеравно слетает.


#pas
ar2 := Copy(ar1, 0, (Length(ar1)-1)); //Так?

------------ Дoбавленo в 12.03:
Подскажите, пожалуйста. Надо изменять длину и размер массива в FTCG:


#hws
func doSetLength(_data)
    println('SetLength(', Array , ',',index1,');')
end

Но я не могу придумать как, динамически, получить, к примеру, такое:


#hws
    println('SetLength(', Array , ',',index1,',',index2,');')

в результате:


#pas
SetLength(ar2, 0,0);

И такое:


#pas
SetLength(ar2[0,0], 0);

как подставлять дополнительные нули в квадратные скобки к массиву, и в функцию?
(нулей может быть до 20 штук.)

карма: 0