Add(MainForm,2953706,126,112)
{
 Height=110
 Position=1
}
Add(Edit,3193473,182,112)
{
 Left=65
 Top=10
 Width=110
 MaxLenField=10
 ClearAfterEnter=1
 link(onEnter,13467802:doTest,[])
}
Add(InlineCode,13467802,238,119)
{
 WorkPoints=#6:doTest|
 EventPoints=#6:onTest|
 Code=#15:unit HiAsmUnit;|13:// Author Tad|24:// Определить что в Edit|22:// Возможные варианты:|11:// 1. Текст|11:// 2. Число|15:// 3. Число HEX|9:interface|0:|30:uses windows, kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|23:     onTest: THI_Event;|51:     PROCEDURE doTest(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doTest;|14: var s:string;|15:     i:integer;|26:     fT, fH, fD, Len:byte;|5:BEGIN|23:  s := toString(_Data);|20:  If s='' then exit;|22:  fT:=0; fH:=0; fD:=0;|18:  Len:= Length(s);|20:  for i:=1 to Len do|8:   begin|48:    If s[i] in['A'..'F','a'..'f'] then  inc(fH);|47:    If s[i] in['0'..'9','.','-'] then  inc(fD);|71:    If s[i] in['A'..'Z','a'..'z','А'..'Я','а'..'я',' '] then inc(fT);  |7:   end;|25:    s:='Смешанный текст';|30:    If len=fT then s:='Текст';|39:    If Len=fH+fD then s:= 'HEX-строка';|31:    If Len=fD then s:= 'Число';|0:|26:   _hi_onEvent(onTest, s);|4:END;|0:|4:end.|
 link(onTest,1393397:doText,[])
}
Add(Label,1393397,294,119)
{
 Top=40
 Width=340
 Caption=""
 AutoSize=1
 Alignment=2
}