Add(InlineCode,13474183,140,42)
{
 WorkPoints=#6:doTest|
 EventPoints=#5:onRes|
 VarPoints=#
 DataPoints=#
 Code=#15:unit HiAsmUnit;|13:// Author Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|4:    |24:     onRes  : THI_Event;|51:     PROCEDURE doTest(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doTest;|16:var s,ss:string;|16:    i,j:integer;|5:BEGIN|9:  ss:='';|21:  s:=toString(_Data);|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;  |24:  _hi_onEvent(onRes,ss);|4:END;|0:|0:|4:end.|
 link(onRes,2951335:doText2,[(179,48)(179,34)(123,34)(123,104)])
}
Add(Edit,2951335,140,91)
{
 Left=115
 Top=10
 Width=120
 link(onChange,13474183:doTest,[(179,97)(179,83)(130,83)(130,48)])
}
Add(Label,6351598,84,91)
{
 Left=25
 Top=10
 Width=83
 Height=17
 Caption="Только цифры"
}