PascalScript точка с запятой ожидаемая ошибка при предварительном просмотре - PullRequest
Новая
       46

PascalScript точка с запятой ожидаемая ошибка при предварительном просмотре

0 голосов
/ 25 октября 2018

Это файл pascalscript из кодовой страницы FastReports.Я расстроен, говоря, что ';ожидаемый '.

Я уже давно смотрю на это и не вижу, где;отсутствует.

Есть ли свежие глаза, желающие взглянуть?

Спасибо, Пойда 

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.
...