Quick start

  Here is a sample code which demonstrates the easiest way of using FastScript. For the correct work of the example put the components fsScript1: TfsScript and fsPascal1: TfsPascal on the form .

uses FS_iInterpreter;

procedure TForm1.Button1Click(Sender: TObject);

begin

 fsScript1.Clear; // do this if you running many scripts from one component

 fsScript1.Lines.Text := 'begin ShowMessage(''Hello!'') end.';

 fsScript1.Parent := fsGlobalUnit; // use standard classes and methods

 fsScript1.SyntaxType := 'PascalScript';

 if fsScript1.Compile then

   fsScript1.Execute else  

   ShowMessage(fsScript1.ErrorMsg);

end;

  As you can see, there is nothing difficult here. At first we fill in the fsScript1.Lines property with the script text. For using standard types and functions we set Parent property to the fsGlobalUnit. Then we compile the script using PascalScript language (you can use C++Script, BasicScript, JScript as well). If compilation is successful Compile method returns True and we can Execute the script. Otherwise the error message is shown.