Add(Edit,5561736,182,63)
{
 Left=230
 Top=20
 Width=200
 Name="name"
 Text=""
 MaxLenField=150
 ClearAfterEnter=1
 Point(doSetFocus)
 Point(doSelectAll)
 Point(onSetFocus)
 link(onChange,9782296:doTest,[])
 link(onEnter,14824129:doEvent1,[(228,76)(228,104)])
 link(onSetFocus,5561736:doSelectAll,[(223,83)(223,127)(170,127)(170,90)])
}
Add(Edit,4731645,399,84)
{
 Left=230
 Top=50
 Width=200
 Hint="только числа"
 HintManager="status"
 Text=""
 MaxLenField=10
 ClearAfterEnter=1
 Point(doSetFocus)
 Point(onSetFocus)
 Point(doSelectAll)
 link(onChange,16538169:doTest,[])
 link(onEnter,2189017:doEvent1,[(445,97)(445,125)])
 link(onSetFocus,4731645:doSelectAll,[(437,104)(437,147)(393,147)(393,111)])
}
Add(LineBreak,16744812,182,105)
{
 Caption="004"
 Type=1
 link(Data,5561736:Text,[])
 Primary=[5194253,0,70]
}
Add(LineBreak,4018416,399,126)
{
 Caption="005"
 Type=1
 link(Data,4731645:Text,[])
 Primary=[11212979,0,49]
}
Add(Label,8126914,112,35)
{
 Left=20
 Top=20
 Width=200
 Height=20
 Caption="Наименование (Только БУКВЫ)"
}
Add(Label,16582756,343,35)
{
 Left=20
 Top=50
 Width=54
 Height=17
 Caption="Длина (м) (Только цифры) "
}
Add(Hub,14824129,245,98)
{
 link(onEvent1,4731645:doSetFocus,[])
}
Add(Hub,2189017,469,119)
{
}
Add(PointHint,3956789,98,21)
{
 Info=#4:name|
 Transparent=0
 VAlign=0
 Width=197
 Height=137
}
Add(PointHint,2412335,336,21)
{
 Info=#6:length|
 Transparent=0
 VAlign=0
 Width=197
 Height=137
}
Add(MainForm,13167479,42,63)
{
 Width=462
 Height=220
 link(onCreate,5561736:doSetFocus,[])
}
Add(InlineCode,16538169,462,84)
{
 WorkPoints=#6:doTest|
 EventPoints=#5:onRes|
 VarPoints=#
 DataPoints=#13:DecimalPlaces|
 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|31:     DecimalPlaces : THI_Event;|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;|18:    i,j,k:integer;|5:BEGIN|9:  ss:='';|21:  s:=toString(_Data);|40:  k:=ReadInteger(_Data,DecimalPlaces,2);|15:  j:=Length(s);|100:   for i:=1 to j do if s[i] in ['0'..'9','.',','] then if s[i]=',' then ss:=ss+'.' else ss:=ss+s[i];|22:  s:=Parse( ss, '.' );|37:   while Length(ss)<k do ss:=ss +'0';|36:  ss:=s + '.' + copy(ss,1,k);       |24:  _hi_onEvent(onRes,ss);|4:END;|0:|0:|4:end.|
 link(onRes,4731645:doText2,[(500,90)(500,71)(390,71)(390,97)])
 link(DecimalPlaces,2068374:Value,[])
}
Add(Memory,2068374,462,28)
{
 Default=Integer(2)
}
Add(InlineCode,9782296,238,63)
{
 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;|14:    i:integer;|5:BEGIN|9:  ss:='';|21:  s:=toString(_Data);|2:  |26:  for i:=1 to Length(s) do|80:  if s[i] in ['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё',' '] then ss:=ss+s[i];|24:  _hi_onEvent(onRes,ss);|4:END;|0:|0:|4:end.|
 link(onRes,5561736:doText2,[(283,69)(283,52)(169,52)(169,76)])
}