TmscrScript

type TmscrScript = class(TComponent)

protected

  FCalledBreak: Boolean;

  FCalledContinue: Boolean;

  FCalledExit: Boolean;

  FAddedBy: TObject;

  FOnGetFinalUnit: TmscrGetUnitEvent;

  FOnGetUnit: TmscrGetUnitEvent;

  FOnRunLine: TmscrRunLineEvent;

  FOnGetVarValue: TmscrGetVariableValueEvent;

  FParent: TmscrScript;

  FRTTIAdded: Boolean;

  FUseExtendCharset: Boolean;

  FItems: TStringList;

  FLines: TStrings;

  FMacros: TStrings;

  FMainProj: Boolean;

  FStatement: TmscrStatement;

  FTerminated: Boolean;

  FUnitLines: TStringList;

  FIncludePath: TStrings;

  FUseClassLateBinding: Boolean;

  FEvaluteRiseError: Boolean;

  FClearLocalVars: Boolean;

  FSyntaxType: string;

  FErrorMsg: string;

  FErrorPos: string;

  FErrorUnit: string;

  FLastSrcPosition: string;

  FProjName: string;

  FProjRunning: TmscrScript;

  FIsRunning: Boolean;

  function GetItem();

  procedure RunLine();

  function GetVariables();

  procedure SetVariables();

  procedure SetLines();

  function GetProgName;

  procedure SetProgName();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Add();

  procedure AddCodeLine();

  procedure AddRTTI;

  procedure Remove();

  procedure RemoveItems();

  procedure Clear;

  procedure ClearItems();

  procedure ClearRTTI;

  function Count;

  function Register_Class(); dynamic;

  procedure Register_Object(); dynamic;

  procedure Register_Component(); dynamic;

  procedure Register_Form(); dynamic;

  function Register_Record(); dynamic;

  procedure Register_Const(); dynamic;

  procedure Register_Enum(); dynamic;

  procedure Register_EnumSet(); dynamic;

  procedure Register_Method(); dynamic;

  procedure Register_Variable(); dynamic;

  procedure Register_Type(); dynamic;

  function CallFunction();

  function CallFunction1();

  function CallFunction2();

  function Compile;

  procedure Execute;

  function Run;

  procedure Terminate;

  function Evaluate();

  function IsExecutableLine();

  function SetFinalCode();

  function GetFinalCode();

  function Find();

  function FindClass();

  function FindRecord();

  function FindLocal();

  property AddedBy: TObject; [rw]

  property ClearLocalVars: Boolean; [rw]

  property ErrorMsg: string; [rw]

  property ErrorPos: string; [rw]

  property ErrorUnit: string; [rw]

  property UseExtendCharset: Boolean; [rw]

  property Items []: TmscrVarForBase; [r]

  property Macros: TStrings; [r]

  property MainProj: Boolean; [rw]

  property Parent: TmscrScript; [rw]

  property ProjRunning: TmscrScript; [r]

  property ProjName: string; [rw]

  property Statement: TmscrStatement; [r]

  property Variables []: Variant; [rw]

  property IncludePath: TStrings; [r]

  property UseClassLateBinding: Boolean; [rw]

  property EvaluteRiseError: Boolean; [r]

  property IsRunning: Boolean; [r]

published

  property Lines: TStrings; [rw]

  property SyntaxType: string; [rw]

  property OnGetFinalUnit: TmscrGetUnitEvent; [rw]

  property OnGetUnit: TmscrGetUnitEvent; [rw]

  property OnRunLine: TmscrRunLineEvent; [rw]

  property OnGetVarValue: TmscrGetVariableValueEvent; [rw]

end;

TmscrScript

TObject