Add(MainForm,15373319,343,77)
{
 Width=344
 Height=155
}
Add(InlineCode,5600559,532,154)
{
 WorkPoints=#7:doWork1|6:Result|13:doOnlyNumbers|0:|
 EventPoints=#7:onEvent|12:onOnlyNumber|
 VarPoints=#3:Var|
 DataPoints=#7:MyValue|8:OnlyNumb|0:|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|14:     s:string;|9:   public|23:     onEvent:THI_Event;|23:     MyValue:THI_Event;|24:     OnlyNumb:THI_Event;|28:     onOnlyNumber:THI_Event;|0:|51:     procedure doWork1(var Data:TData; index:word);|50:     procedure Result(var Data:TData; index:word);|57:     procedure doOnlyNumbers(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|5:const|14:  s0 = '### ';|14:  s2 = ' ###';|0:|58:procedure THiAsmClass.doWork1(var Data:TData; index:word);|3:var|16:  s1, s3:string;|5:begin|33:  s1 := ReadString(Data,MyValue);|23:  s3 := toString(Data);|25:  s := s0 + s1 + s2 + s3;|0:|26:  _hi_OnEvent(onEvent, s);|4:end;|0:|57:procedure THiAsmClass.Result(var Data:TData; index:word);|5:begin|20:  dtString(Data, s);|4:end;|0:|36:procedure THiAsmClass.doOnlyNumbers;|16:var s,ss:string;|16:    i,j:integer;|5:begin|9:  ss:='';|34:  s:=ReadString(Data,OnlyNumb,'');|15:  j:=Length(s);|19:   for i:=1 to j do|9:    begin|40:      if s[i] in ['0'..'9',',','.'] then|12:       begin|35:        if s[i]=',' then ss:=ss+'.'|24:       else ss:=ss+s[i];|10:      end;|10:    end;  |31:  _hi_onEvent(onOnlyNumber,ss);|4:end;|0:|4:end.|
 link(onEvent,16334128:doText,[])
 link(MyValue,7701069:Text,[])
 link(onOnlyNumber,12895733:doText2,[(571,167)(571,90)])
 link(OnlyNumb,12895733:Text,[(545,117)(601,117)])
}
Add(Button,2115245,343,154)
{
 Left=5
 Top=5
 Width=65
 Caption="Open"
 Data=Real(0)
 link(onClick,4781423:doData,[])
}
Add(Edit,9663791,441,77)
{
 Left=75
 Top=5
 Width=250
 Text="Edit1"
}
Add(DoData,4781423,441,154)
{
 link(onEventData,5600559:doWork1,[])
 link(Data,9663791:Text,[])
}
Add(Label,16334128,630,154)
{
 Left=75
 Top=55
 Width=40
 Height=17
 Caption="0"
}
Add(Edit,7701069,532,77)
{
 Left=75
 Top=30
 Width=250
 Text="Edit2"
}
Add(Edit,12895733,595,77)
{
 Left=70
 Top=85
 Width=245
 link(onChange,5600559:doOnlyNumbers,[(634,83)(634,69)(522,69)(522,174)])
}