Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];
ВнизНужна макроподстановка! Помогите, 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c