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
Hello!
use frScriptMemo unit