Global Script Functions

procedure SaveProject;

SaveProject;

function ExtractFilePath(filename : string) : string;

var path = ExtractFilePath('C:\\Temp\\TextFile.txt'); // path == 'C:\Temp\'

function ExtractFilename(filename : string) : string;

var filename = ExtractFilename('C:\\Temp\\TextFile.txt'); // filename == 'TextFile.txt'

function ExtractFileDrive(filename : string) : string;

var drive = ExtractFileDrive('C:\\Temp\\TextFile.txt'); // drive == 'C:'

function ExtractFileExt(filename : string) : string;

var ext = ExtractFileExt('C:\\Temp\\TextFile.txt'); // ext == '.txt'

function ExpandUNCFilename(filename: string) : string;

var unc = ExpandUNCFilename('C:\\Temp\\TextFile.txt'); // unc == '\\Server\Temp\TextFile.txt'

procedure FBSetCaption(value : string);

FBSetCaption('Compiler Running...');

function GetClipBoardText : string;

var clipText = GetClipBoardText;

procedure CopyToClipBoard(const clipText : string)

CopyToClipBoard(clipText);

function FBFormatDateTime(format : string; datetime : DateTime) : string;

var formattedDate = FBFormatDateTime('dd-mm-yyyy', FBVariables.Today); // formatedDate == '25-02-2015'

function StrToDate(date : string) : DateTime;

var fridaysDate = StrToDate('25/02/2015'); // fridaysDate == 42060

The default format in the UK is day/month/year, where:
The day must be 1..31 (depending on month/year)
The month must be 1..12
The year must be 0..9999 (optional)

function StrToDateTime(datetime: string) : DateTime;

var fridaysDateTime = StrToDateTime('25/02/2015 8:31:23');

The default format in the UK is day/month/year hour:minute:second.msec, where:

The day must be 1..31 (depending on month/year)
The month must be 1..12
The year must be 0..9999 (optional)
The hour must be 0..23
The minute must be 0..59 (optional)
The second must be 0..59 (optional)
The milli-sec must be 0..999 (optional)

function ChangeFileExt(filename : string; newext : string) : string;

var file = ChangeFileExt('C:\\Temp\\TextFile.txt', ".doc"); // file == 'C:\Temp\TextFile.doc'

function IncludeTrailingPathDelimiter(text : string) : string;

var path = IncludeTrailingPathDelimiter('C:\\Temp'); // path == 'C:\Temp\'

function ExcludeTrailingPathDelimiter(text : string) : string;

var path = ExcludeTrailingPathDelimiter('C:\\Temp\\'); // path == 'C:\Temp'

function ExpandFilename(shortFilename : string) : string;

var path = ExpandFilename('C:\\Progra~1\\TextFile.txt'); // path == 'C:\Program Files\TextFile.txt'

function FileExists(filename : string) : boolean;

var exists = FileExists('C:\\Temp\\TextFile.txt'); // exists == true

function GetCurrentDir : string;

var currDir = GetCurrentDir; // currDir == 'C:\Temp\'

function SetCurrentDir(dir : string) : boolean;

SetCurrentDir('C:\\Temp\\');

function ExpandRelativePath(filepath : string; relativeto : string) : string;

var path = ExpandRelativePath('..\\TextFile.txt', 'C:\\Temp\\Depth1\\')' // path == 'C:\Temp\TextFile.txt'

function NewGUIDString : string;

var guid = NewGUIDString; // guid == '{CB938C2E-C805-47CF-8935-5AFCC85640A9}'

function ExtractMajorVer(major : string) : string;

var major = ExtractMajorVer('3.0.23.1'); // major == '3'

function ExtractMinorVer(minor : string) : string;

var minor = ExtractMinorVer('3.0.23.1'); // minor == '0'

function ExtractReleaseVer(release : string) : string;

var release = ExtractReleaseVer('3.0.23.1'); // release == '23'

function ExtractBuildVer(build : string) : string;

var build = ExtractMajorVer('3.0.23.1'); // build == '1'

Extracts the Build Version value from a version string.

function MessageBox(text : string; title : string; style : integer) : integer;

var msgResult = MessageBox('Do you want to cancel the build', 'Cancel Build', mbOKCancel); // msgResult == mrOK

procedure Alert(message : string);

Alert('Click OK when ready to proceed.');

function EncryptString(text : String) : String;

var encryptedText = ExcryptString('password');

function DecryptString(encodedText : String) : String;

var decryptedText = DecryptedString(encryptedText);

procedure SetEstimatedProgressTotal(progress : Integer);

var SetEstimatedProgressTotal(251);