TSyntaxType not found in new fast script version

unit CEIRADTool.Types;


interface


uses

 {FastScript}

 fs_SynMemo;


type

 TScriptType = record

  DefaultExtension: string;

  DisplayName: string;

  FileMask: string;

  FastScriptLanguageName: string;

  SyntaxType: TSyntaxType;

 end;


const

 cFastScriptLanguageName_PascalScript = 'PascalScript';


const

 cFileMask_AllFiles = '*.*';

 cFileMask_CPPScript = '*.cpp';

 cFileMask_JScript = '*.js';

 cFileMask_PascalScript = '*.pas';

 cFileMask_VBScript = '*.vb';


const

 cScriptTypes: array [0..4] of TScriptType = (

  (DefaultExtension: 'vb'; DisplayName: 'Visual Basic Script Files'; FileMask: cFileMask_VBScript; FastScriptLanguageName: 'BasicScript'; SyntaxType: stVB),

  (DefaultExtension: 'cpp'; DisplayName: 'C++ Script Files'; FileMask: cFileMask_CPPScript; FastScriptLanguageName: 'C++Script'; SyntaxType: stCpp),

  (DefaultExtension: 'js'; DisplayName: 'JScript Files'; FileMask: cFileMask_JScript; FastScriptLanguageName: 'JScript'; SyntaxType: stJs),

  (DefaultExtension: 'pas'; DisplayName: 'Pascal Script Files'; FileMask: cFileMask_PascalScript; FastScriptLanguageName: cFastScriptLanguageName_PascalScript; SyntaxType: stPascal),

  (DefaultExtension: 'N/A'; DisplayName: 'All Files'; FileMask: cFileMask_AllFiles; FastScriptLanguageName: 'N/A'; SyntaxType: stText)

  );


function StringToSyntaxType(const AString: string): TSyntaxType;


implementation


uses

 {Delphi}

 System.SysUtils,

 {CEI}

 CEI.Exceptions;


function StringToSyntaxType(const AString: string): TSyntaxType;

var

 AScriptType: TScriptType;

begin

 for AScriptType in cScriptTypes do

  if SameText(AString, AScriptType.FastScriptLanguageName) then

   Exit(AScriptType.SyntaxType);

 raise ECEIException.CreateFmt('Unexpected FastScript language name: "%s"', [AString]); //Do Not Localize

end;


end.



getting error in new fastscript version

[dcc32 Error] CEIRADTool.Types.pas(15): E2003 Undeclared identifier: 'TSyntaxType'

[dcc32 Error] CEIRADTool.Types.pas(30): E2003 Undeclared identifier: 'stVB'

[dcc32 Error] CEIRADTool.Types.pas(31): E2003 Undeclared identifier: 'stCpp'

[dcc32 Error] CEIRADTool.Types.pas(32): E2003 Undeclared identifier: 'stJs'

[dcc32 Error] CEIRADTool.Types.pas(33): E2003 Undeclared identifier: 'stPascal'

[dcc32 Error] CEIRADTool.Types.pas(34): E2003 Undeclared identifier: 'stText'

[dcc32 Error] CEIRADTool.Types.pas(37): E2005 'TSyntaxType' is not a type identifier

[dcc32 Error] CEIRADTool.Types.pas(47): E2005 'TSyntaxType' is not a type identifier

[dcc32 Fatal Error] CEIRADTool.UI.SearchPath.pas(140): F2063 Could not compile used unit 'CEIRADTool.Types.pas'

my control penal version for fast report is in SS


Comments

Leave a Comment