atScript.TatCustomScripter.DoCompileError(

BIZ TMS Scripter
1

Hi!



There is a missing var declaration in TatCustomScripter.DoCompileError.



In TScriptErrorEvent variable "msg" is defined as a call by reference parameter.



TScriptErrorEvent = procedure(Sender: TObject; "var" msg: string; row, col: integer; var ShowException: boolean) of object;



In DoCompileError where it is called, it is not. Please could you change it in the next Version?





procedure TatCustomScripter.DoCompileError(msg: string; row, col: integer;

var AShow: boolean; AScript: TatScript);

begin

if Assigned(FOnCompileError) then

    FOnCompileError(Self, msg, row, col, AShow);

end;



Thanks in advance

2

Thanks, we will fix that in next version, yes.