procedure TWebModule1.PageProducer2HTMLTag(
Sender: TObject; Tag: TTag; const TagString:
String; TagParams: TStrings; var ReplaceText: String);
…
begin
…
if TagString='celldata' then begin
case FY of
0: begin
ReplaceText:=days[FX];
end;
else begin
if b then begin
ReplaceText:='<span class=f8b>'+IntToStr(d)+
'.</span>';
tCalendar.Filter:='date='''+IntToStr(FYear)+
DateSeparator+IntToStr(FMonth)+DateSeparator+
IntToStr(d)+'''';
tCalendar.Filtered:=true;
while not tCalendar.EOF do begin
ReplaceText:=ReplaceText+'<br>'+
tCalendarTIME.Value+' '+tCalendarEVENT.Value;
tCalendar.Next;
end;
end else begin
ReplaceText:=' ';
end;
end;
end;
...