Кроме декларации переменной Resultat методом:
#pas
lng.decl_priv_var(Resultat, 'real')
#hws
lang(Resultat:real)
Тогда, при условии, что память, заведомо, переключена на Real, мы получаем:
#hws
event(onResult, Resultat)
#pas
procedure TClassFTCG_Tools_8EA8BB0.event_doData(var Data:TData; index:word);
begin
resultat1 := 6 + 6;
val4 := resultat1;
end;
Единственный костыль в том, что если подключить элемент не Real, то происходит автоматическая конвертация данных, что сильно замедляет схему. Поэтому пользователю элемента прийдется за этим следить, если он хочет сохранить высокую скорость FTCG:
#hws
procedure TClassFTCG_Tools_8EA8BB0.event_doData(var Data:TData; index:word);
begin
resultat1 := 6 + 45;
val4 := double2str(resultat1);
end;
Поиск
Друзья
Администрация