<div>
var 
&nbsp; dd, mm, yy : word; 
&nbsp; dt : tdate; 
&nbsp; i : integer; 
begin 
&nbsp; mm := 11; 
&nbsp; dd := 30; 
&nbsp; yy := 2006; 
&nbsp; for i := 1 to dd do 
&nbsp; begin 
&nbsp; &nbsp; dd := EncodeDate(yy, mm, dd); 
&nbsp; &nbsp; if DayOfTheWeek(StrToDate(xdate)) = 5 then 
&nbsp; &nbsp; &nbsp; &nbsp; // set the color e.g. Qreport1.QrDbText.font.color := clSilver 
&nbsp; end; 
end; 

</div>

var
  dd, mm, yy : word;
  dt : tdate;
  i : integer;
begin
  mm := 11;
  dd := 30;
  yy := 2006;
  for i := 1 to dd do
  begin
    dd := EncodeDate(yy, mm, dd);
    if DayOfTheWeek(StrToDate(xdate)) = 5 then
        // set the color e.g. Qreport1.QrDbText.font.color := clSilver
  end;
end;


<div>
Sorry ! I think you dont understand my quetion 
I need the following 
 
&nbsp;Qreport1.QrDbText1.color := clSilver; 
&nbsp;Qreport1.QrDbText2.color := clSilver; 
.. 
.. 
... 
... 
&nbsp;Qreport1.QrDbText20.color := clSilver; 
 
i want do this with one statement 
 

</div>

Sorry ! I think you dont understand my quetion
I need the following

 Qreport1.QrDbText1.color := clSilver;
 Qreport1.QrDbText2.color := clSilver;
..
..
...
...
 Qreport1.QrDbText20.color := clSilver;

i want do this with one statement



<div>
Forced accept. 
 
Computer101 
EE Admin
</div>

<div>
<div class="content wysiwyg-content">
hi 
how can I do the following 
 
example: 
&nbsp; &nbsp;i am using quick report , the are 20 QrDbtext ( &nbsp;QrDbtext1,QrDbtext2,QrDbtext3 ........QrDbtext31 ) &nbsp;on the quick report that represented the days in the month , 
I want if the day of the month in FRIDAY i want to change the color or QrDbtext? &nbsp;... 
 
like this 
ex: 
MMon := 11; 
Days := 30; 
for k := 1 to Days do 
begin 
&nbsp; &nbsp;xdate := IntToStr(k)+'/'+IntToStr(mmon)+'/'+'2006'; 
&nbsp; &nbsp;IF DayOfTheWeek(StrToDate(xdate)) = 5 then 
&nbsp; &nbsp; &nbsp; &nbsp; Qreport1.QrDbText.... .Color := clSilver; 
end; 
&nbsp; 
best regards 

</div>
</div>

hi 
how can I do the following

example:
   i am using quick report , the are 20 QrDbtext (  QrDbtext1,QrDbtext2,QrDbtext3 ........QrDbtext31 )  on the quick report that represented the days in the month , 
I want if the day of the month in FRIDAY i want to change the color or QrDbtext?  ...

like this 
ex:
MMon := 11;
Days := 30;
for k := 1 to Days do
begin
   xdate := IntToStr(k)+'/'+IntToStr(mmon)+'/'+'2006';
   IF DayOfTheWeek(StrToDate(xdate)) = 5 then
        Qreport1.QrDbText.... .Color := clSilver;
end; 
  
best regards


Urgent :  Macro subsitution

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.