Functions

Parent page: DelphiScript

The common function statements used by the DelphiScript language are covered below. The range of DelphiScript functions are presented in sections for FileIO routines, Math routines, String routines and Extension routines.

Calculating Expressions with the Evaluate function

The built in function Evaluate interprets a string containing a valid mathematical expression during runtime and a result is returned. For example, you can write a script such as Evaluate(ProcNames[ProcIndex]); and the procedure specified in ProcNames[ProcIndex] will be called.

To calculate such an expression you can use Evaluate method where expression is specified by Expr parameter. For example, you can calculate expressions such as the following:

 Evaluate('2+5'); Evaluate('((10+15)-5)/2*5'); Evaluate('sin(3.1415926/2)*10'); Evaluate('2.5*log(3)');

Passing Parameters to Functions and Procedures

Both functions and procedures defined in a script can be declared to accept parameters. Additionally, functions are defined to return a value. Types of parameters in procedure/function declarations are ignored and can be skipped. For example, this code is correct:

 Function sum(a, b) : integer; Begin   Result := a + b; End;

Exiting from a Procedure

DelphiScript provides Exit and Break statements to force a procedure to exit before it would terminate naturally. For example; if the value of a parameter is not suitable, you might want to issue a warning to the user and exit, as the example below shows.

 Procedure DisplayName (s); Begin   If s = '' Then   Begin     ShowMessage('Please enter a name');     Exit;   End;   ShowMessage(S + ' is shown'); End;

File IO Routines

DelphiScript has the following IO routines:

Append	AssignFile	ChDir
CloseFIle	Eof	Eoln
Erase	GetDir	MkDir
Read	Readln	Reset
Rewrite	RmDir	Write
Writeln

DelphiScript gives you the ability to write information to a text file, and since DelphiScript is an untyped language, all values must be converted to strings first.

Here, Read and ReadLn routines are equivalent — they read a line up to, but not including, the next line. A Writeln(String) routine is equivalent to a Write(S) and a Write(LineFeed + CarriageReturn) routine.

To write out a text file, employ the AssignFile, ReWrite, Writeln and CloseFile procedures. To read in a text file, use the AssignFile, Reset, Readln and CloseFile procedures. The below example writes to a text file and adds an end-of-line marker. Using the Try / Finally / End block is recommended, to make scripts secure in the event of an IO failure.

Example:

 Var   InputFile : TextFile;   OutputFile : TextFile;   I          : Integer;   Line       : String; Begin   AssignFile(OutputFile,eConvertedFile.Text);   Rewrite(OutputFile);   AssignFile(InputFIle,eOriginalFIle.Text);   Reset(InputFile);     Try   While not EOF(InputFile) do   Begin     Readln(InputFile,Line);     For I := 1 to Length(Line) Do       Line[I] := UpperCase(Line[I]);       Writeln(Outputfile, Line);     End;   Finally     CloseFile(InputFile);     CloseFile(OutputFile);   End; End;

Math Routines

DelphiScript has the following math routines:

Abs	ArcTan	Cos
Exp	Frac	Int
Random	Randomize	Round
Sin	Sqr	Sqrt
Trunc

String Routines

DelphiScript has the following string routines, which can manipulate strings or characters. Only a subset of string routines (most of the string routines used by DelphiScript are imported from the Embarcadero Delphi's SysUtils unit) are shown in this table below:

AnsiCompareStr	AnsiCompareText	AnsiDequotedStr
AnsiExtractQuotedStr	AnsiLowerCase	AnsiPos
AnsiQuotedStr	AnsiSameStr	AnsiSameText
AnsiUpperCase	CompareStr	CompareText
Copy	Delete	FloatToStr
FloatToStrF	Format	Frac
Insert	Int	IsDelimiter
LastDelimiter	Length	LowerCase
Ord	Pos	Pred
QuotedStr	Round	SameText
SetLength	StringOfChar	StringToGUID
Succ	Trim	TrimLeft
TrimRight	UpCase	UpperCase
WideUpperCase	WideLowerCase	WideSameStr
WideSameText

String routines that are not supported by DelphiScript are outlined in the table below:

AnsiContainsStr	AnsiContainsText	AnsiEndsStr
AnsiEndsText	AnsiIndexText	AnsiMatchStr
AnsiMatchText	AnsiReplaceStr	AnsiReplaceText
AnsiResemblesProc	AnsiResemblesText	AnsiStartsStr
AnsiStartsText	Concat	DecodeSoundExInt
DecodeSoundExWord	DupeString	LeftStr
MidStr	NullStr	ReverseString
RightStr	SetString	SoundEx
SoundExCompare	SoundExInt	SoundExProc
SoundExSimilar	SoundExWord	Str
StuffString	Val

Extension Routines

Extension routines are used when dealing with server processes (a command is a packaged server process with parameters, if any) in scripts, especially if you need to extract or set strings for the parameters of processes. Some of the routines are listed below.

To execute parameters of processes in a script, the following functions may be needed:

AddColorParameter	AddIntegerParameter	AddLongIntParameter
AddSingleParameter	AddWordParameter	GetIntegerParameter
GetStringParameter	ResetParameters	RunProcess

Useful functions:

SetCursorBusy	ResetCursor	CheckActiveServer
GetActiveServerName	GetCurrentDocumentFileName	RunApplication
SaveCurrentDocument

Useful Dialogs:

ConfirmNoYes	ConfirmNoYesCancel	ShowError
ShowInfo	ShowWarning

Using Sets in DelphiScript

Embarcadero Delphi's Set and In keywords, and the set operators +, -, *, <= and >= are not supported in DelphiScript. The equivalent Set Operator keywords are tabulated below.

DelphiScript has no set types. To use sets in DelphiScript scripts, use the built-in functions; MkSet, MkSetRange, InSet, SetUnion, SetDifference, SetIntersection and SubSet functions which enable sets to be manipulated in a DelphiScript script. These are described in more detail below.

Set Operators

Embarcadero Delphi Set Operator keyword	Equivalent DelphiScript Set Operator keyword
+	SetUnion
-	SetDifference
*	SetIntersection
<=	SubSet
=	=
<>	<>
In	InSet

MkSet function

The MkSet function is a set constructor with a variable number of arguments. For example:

 Font.Style = MkSet(fsBold,fsItalic);

The MkSet(fsBold,fsItalic)here denotes two set elements only; fsBold and fsItalic.

MkSetRange function

The MkSetRange function is a set contructor with a range of arguments. For example:

 LayerSet := MkSetRange(eTopLayer,eBottomLayer);

The MkSetRange(eTopLayer,eBottomLayer) function denotes a range of layers from eTopLayer to eBottomLayer.

InSet function

This InSet function is used as substitution of Delphi's In operator. A in B is equal to InSet(A, B).

 If InSet(A,B) then   ShowMessage('A is in B set') Else   ShowMessage('A not in B set');

SetUnion function

The SetUnion function is used as substitution of Delphi's + operator. A + B is equal to SetUnion(A, B).

 ASet := BSet + CSet; // should be changed to: ASet := SetUnion(BSet,CSet); // in order to achieve the desired script result.

SetDifference function

The SetDifference function is used as substitution of Delphi's - operator. A - B is equal to SetDifference(A, B).

SetIntersection function

The SetIntersection function is used as substitution of Delphi's * operator. A * B is equal to SetIntersection(A, B).

SubSet function

The SubSet function is used as substitution of Object Pascal's <= operator. A <= B is equal to SubSet(A, B).

Using Exception Handlers

The Try keyword introduces a try-except statement or a try-finally statement. These two statements are related but serve different purposes:

Try Finally

With Try-Finally, the statements in the Finally block are always executed, regardless of whether an exception from the Try block, Exit or Break occurs. Use try-finally block to free temporary objects and other resources, and to perform clean up activities.

Typically, only one try-finally statement is needed in a subroutine.

Example:

 Reset(F); Try   // process file F Finally   CloseFile(F); End;

Try Except

Use Try-Except to handle exceptional cases. For example, to catch specific exceptions and do something useful with them, such as log them in an error log or create a friendly dialog box. Since the On keyword is not supported in DelphiScript, the Raise statement is used inside the Except block.

Example:

 Try   X := Y/Z; Except   Raise('A divide by zero error!'); End;

Raise

The Raise keyword is related to the Try keyword. The Raise keyword can be used without parameters to re-raise the last exception. It can also be used with a string parameter to raise an exception using a specific message.

Example:

 Raise(Format('Invalid Value Entered : %d', [Height]));

Note that since the On keyword is not supported, the Exception objects (available in Embarcadro Delphi) cannot be used.