Add(MainForm,2953706,35,161)
{
 Width=163
 Height=243
 Caption="Equalize"
 Position=1
}
Add(Button,9314254,105,161)
{
 Left=100
 Top=190
 Data=Real(-12.239)
 link(onClick,6275833:doEnum,[])
}
Add(StrList,13729817,147,98)
{
 Strings=#5:0.123|4:0.12|3:.24|7:23.1234|1:1|1:0|2:12|7:2345643|13:234.123456789|2:пп|
}
Add(ArrayEnum,6275833,161,161)
{
 link(onItem,15390601:doRealToStr,[])
 link(Array,13729817:Array,[])
}
Add(InlineCode,15390601,210,161)
{
 @Hint=#15:Инструкция Goto|
 WorkPoints=#11:doRealToStr|
 EventPoints=#7:OnEvent|
 DataPoints=#7:Digits_|2:I_|2:F_|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|17:uses Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:    Digits_:THI_Event;|17:    I_:THI_Event;|17:    F_:THI_Event;|22:    OnEvent:THI_Event;|54:   procedure doRealToStr(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doRealToStr;|0:|3:var|13: Digits:real;|16: I,F   :integer;|15: SStr  :string;|1: |7:  begin|35:   I      := ReadInteger(_Data,I_);|35:   F      := ReadInteger(_Data,F_);|37:   Digits := ReadReal(_Data,Digits_);|25:   Str(Digits:I:F, SStr);|29:   _hi_OnEvent(OnEvent,SStr);|6:  end;|4:end.|
 link(OnEvent,15256508:doAdd,[])
 link(I_,5600699:Value,[])
 link(F_,1844059:Value,[(230,149)(265,149)])
}
Add(ListBox,15256508,266,161)
{
 Top=5
 Width=155
 Height=180
 Font=[Courier New,10,5,0,204]
}
Add(Memory,5600699,217,105)
{
 Default=Integer(16)
}
Add(Memory,1844059,259,105)
{
 Default=Integer(5)
}