Ошибка при компиляции скрипта
Вот метод компиляции.
вот текст скрипта (ессесно он ничего не делает просто как пример)
Вот как добавляю метод
Incompatible types: 'Extended', 'String'
В чём может быть дело?
bool BaseScript::CompileScript(Classes::TStrings* i_Lines, const AnsiString& i_SyntaxType)
{
if (i_Lines == 0)
return false;
m_fsScript->Parent = fsGlobalUnit();
m_fsScript->Clear();
m_fsScript->Lines = i_Lines;
AddFunctionScript();
m_fsScript->SyntaxType = i_SyntaxType;
return m_fsScript->Compile();
}
вот текст скрипта (ессесно он ничего не делает просто как пример)
#language C++Script
{
GetData("U8", &a);
}
Вот как добавляю метод
void BaseScript :: AddFunctionScript()
{
m_fsScript->AddMethod("procedure GetData(ChannelName : String, var Data : Extended)", &CallMethod);
//CallMethod - метод класса BaseScript
}
При компиляции получаю вот такоеIncompatible types: 'Extended', 'String'
В чём может быть дело?
Комментарии
FR 4.6.24