не работает
По идее это условие не выполняется
Код:
if Components[i] is TShape then
Так как программа на него никак не реагирует...
А если пробую напрямую подставлять
Код:
(FindComponent('Shape' + IntToStr(i)) as TShape).Brush.Color:= clMoneyGreen;
Компилирует, но при работе программы когда доходит до этого места выдает ошибку.
По сути в обеих случаях одно и то же.
Что может быть?