Непонятки с TMAType
Добавлено: Ср янв 31, 2007 9:33 am
вот этот код в окошке настройки стратегии выдает illegal value. Значение устанавливается, но при повторном заходе в окно настройки снова illegal value.
если MAType : integer, то ошибку не выдает, но не работает StrMAType. Что я делаю не так?
В принципе, легкая рихтовка StrMAType решила проблему, но как оно все-таки должно работать?
Код: Выделить всё
uses
SysUtils, Classes, System, StrategyInterfaceUnit, TechnicalFunctions;
var
MAType: TMAType;
procedure InitStrategy; stdcall;
begin
RegOption('MAType', ot_EnumType, MAType);
AddOptionValue('MAType', 'Simple (SMA)');
AddOptionValue('MAType', 'Exponential (EMA)');
AddOptionValue('MAType', 'Weighted (WMA)');
AddOptionValue('MAType', 'Smoothed (SMMA)');
MAType := ma_SMA;
end;
В принципе, легкая рихтовка StrMAType решила проблему, но как оно все-таки должно работать?