Текущий архив: 2004.01.16;
Скачать: CL | DM;

Вниз

Нужна макроподстановка! Помогите, 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/

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.036 c