Нужна макроподстановка! Помогите, PLS.

← →
Denis1 (2004-01-05 09:14) [0]

Добрый день.
Нужно в цикле, в зависимости от условий произвести изменения свойств объектов:

Shape1.Brush.Color=clRed;
Shape2.Brush.Color=clRed;
Shape3.Brush.Color=clBlue;
...........
Shape50.Brush.Color=clRed;

Если бы воспользоваться макроподстановкой, как в FoxPro, было бы что-то типа:

for i:=1 to 50 do
begin
if(mmm>"10") then
col1:="clRed"
else
col1:="clBlue";
lll:="Shape"+IntToStr(i)+".Brush.Color:="+col1;
макроподстановка lll;
end;

Как подобную вещь сделать в Delphi?

← →
Романов Р.В. © (2004-01-05 09:16) [1]

http://delphimaster.net/view/1-1073282459/

Нужна макроподстановка! Помогите, PLS. Найти похожие ветки