PascalScript分号在预览时出现错误

时间:2018-10-25 06:38:44

标签: pascal pascalscript

这是FastReports代码页中的pascalscript文件。我说';预期”。

我已经盯着它看了一段时间,但看不到缺少。

有新鲜的眼睛愿意看吗?

谢谢 Poida

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
  if <frxDSMTOrder."QuoteRequest"> = true then
    begin
    Memo14.Text := 'REQUEST FOR QUOTE';
    Memo52.Visible := false;                                                        
  end;    
else
begin
  if (<frxDSPropMaintJob."MAINTJOB_PRIORITY"> = 1) or (<frxDSPropMaintJob."MAINTJOB_PRIORITY"> = 0) then
     begin                                                                                  
           Memo14.Text := 'ROUTINE MINOR WORKS REQUEST';                                                                       
           Memo52.Visible := true;
           Memo52.Color := clMoneyGreen;
           Memo52.Text := 'Works to be completed within 10 working days';                                                                                                                                                         
     end;  
   if (<frxDSPropMaintJob."MAINTJOB_PRIORITY"> = 2) then
      begin
           Memo14.Text := 'PRIORITY URGENT - MINOR WORKS REQUEST';                                                                       
           Memo52.Visible := true;
           Memo52.Color := clRed;
           Memo52.Text := 'Respond within 4 hours';  
      end;                      
end;  


  if <vAsbestos> = 1 then
         begin              
           ChildAsbestos.Visible := true;  
       MemoAsbestosMessage.Visible := true;                                    
     end;              
  else
     begin              
       ChildAsbestos.Visible := false;
       MemoAsbestosMessage.Visible := false;  
     end;              

  end;    
end;                  
//------------------------------------------------------------------------------                                                                                                                                                                

procedure frxOrder1OnRunDialogs(var Result: Boolean);
begin
  if <vAsbestos> = 1 then
      DialogPage1.ShowModal;    
end.

0 个答案:

没有答案