FastReports pascalscript, если

Question

У меня проблема с оператором IF в FastReport.
Я хочу проверить, если ProgramName = "", тогда измените Memo1.Text = "ONLY FOR CALCULATION", если нет, то "OTHER"

procedure rara(Sender: TfrxComponent);
var
ProgramName : sring;
begin
ProgramName := <Nest."PrgName">;

if ProgramName = "" then
begin                                
       memo1.Text = "ONLY FOR CALCULATION";                
       end
else
       begin
       Memo1.Tex = "OTHER";                                                             
       end
end;

end;

Я вижу ошибку:

Ожидается 'THEN'

У вас есть идеи?

Answer 1

Если вы используете быстрый отчет, возможно, этот скрипт является обработчиком события OnBeforePrint для одного из компонентов TfrxMemoView.Обработчик событий должен выглядеть следующим образом (как прокомментировал @MartinPrikryl).

procedure Memo1OnBeforePrint(Sender: TfrxComponent);
var
   ProgramName : string;
begin
   ProgramName := <Nest."PrgName">;
   if ProgramName = '' then begin                                
      Memo1.Text := 'ONLY FOR CALCULATION';                
      end
   else begin
      Memo1.Text := 'OTHER';                                                             
   end
end;

Обратите внимание, что <Nest."PrgName"> возвращает значение для столбца PrgName из набора данных отчета Nest.