func doIntToStr
   fvar(st, old)
   if(linked(Result))
      old = block.select(BLK_PRIV_VAR)
      println(s, ':string;')
      block.select(old)
      println(s, ' := int2str(', Data, ');')
      event(onResult, s)
   else
      event(onResult, ' int2str(' + Data + ') ') 
   end
end

func Result
   if(linked(doIntToStr))
      return(s)
   else
      return(' int2str(' + Data + ') ') 
   end
end

func do<name>
   fvar(st, old)
   if(linked(Result))
      old = block.select(BLK_PRIV_VAR)
      println(s, ':<type>;')
      block.select(old)
      println(s, ' := <func name>(', Data, ');')
      event(onResult, s)
   else
      event(onResult, '<func name>(' + Data + ') ') 
   end
end

func Result
   if(linked(do<name>))
      return(s)
   else
      return('<func name>(' + Data + ') ') 
   end
end

Add(Button,7232119,126,161)
{
 Left=80
 Top=105
 Data=String(test)
 link(onClick,16006348:doMessage,[])
}
Add(Message,16006348,182,161)
{
}

_hi_OnEvent_(_event_onClick,_prop_Data);[/code]
и так мы уже имеем один лишний вызов процедуры и две лишние передачи параметра(а это драгоценное время и байты в программе :!: )
лезем в share.pas видим:
procedure _hi_OnEvent_(const PointEvent:THI_Event;var Data:TData);
var dt:TData;
begin
   dt := Data;
   OnEvent(PointEvent,dt);
end;
и что мы тут видим? dt := Data; <---- полное копирование данных! представте себе, что это такое если в данных строка объемом в несколько мегабайт(гигабайт....)
OnEvent(PointEvent,dt); <------ еще один лишний вызов и передача двух параметров

дальше смотрим, что такое OnEvent. Код приводить не буду ничего особо катастрофичного там нет, кроме еще одного(!) вызова и передачи аргументов.

и только теперь управление передается на метод doMessage:
procedure THIMessage._work_doMessage;
...
begin
   Mes := ReadString(_Data,_data_Message,_prop_Message);
   ....
end;
Mes := ReadString(); <----- опять полное копирование всех данных(!)

лезем опять в share.pas и видим такую картину:
function ReadString(var Data:TData; PointData:THI_Event; const Def:string):string;
begin
      ...
      Result := ToString(Data);
      ...
end;
Result := ToString(); <----- и еще раз сделали копию(!)

function ToString;
begin
    ....
    data_str : Result := Data.sdata;
    ....
end;
Result := Data.sdata; <----- ну от того, что мы и в пятый раз скопируем уже ничего не изменится....


и вот теперь представте на секунду, что это базис стандартного пакета hiasm, не зависящий от того, как и через какое место будут сделаны все остальные элементы. И никак иначе сделать не возможно - все таки голову над этим ломали не один год.

func doCheck
  println('if(', check, ') {')
  event(onOn, _data_)
  println('} else {')
  event(onOff, _data_)
  println('}')
end