Creation of objects in the script

Top  Previous  Next

New objects can be added to a report using a script. Let's show how this is done with a simple example. Create a blank report and enter this code in the script’s main procedure:

 

PascalScript:

 

var

 Band: TfrxReportTitle;

 Memo: TfrxMemoView;

begin

 Band := TfrxReportTitle.Create(Page1);

 Band.Height := 20;

 Memo := TfrxMemoView.Create(Band);

 Memo.SetBounds(10, 0, 100, 20);

 Memo.Text := 'This memo is created in code';

end.

 

C++ Script:

 

TfrxReportTitle Band;

TfrxMemoView Memo;

{

 Band = TfrxReportTitle.Create(Page1);

 Band.Height = 20;

 Memo = TfrxMemoView.Create(Band);

 Memo.SetBounds(10, 0, 100, 20);

 Memo.Text = "This memo is created in code";

}

 

Preview the report:

 

_img255

 

Note that we did not destroy the FastReport objects we created in this example. This is not required as FastReport objects are automatically destroyed by the Delphi application after the report is completed. Also note that when we create standard Delphi objects in a script (such as TStringLists) we also have to destroy them in the script, as this will not be done automatically by the application.