Add(Message,14517457,546,203)
{
 link(Message,11826358:Value,[])
}
Add(Button,15848612,119,133)
{
 Left=15
 Top=40
 link(onClick,14904968:doEnum,[])
}
Add(ListBox,15757503,210,63)
{
 Left=15
 Top=65
 Width=200
 Height=65
 Strings=#28:4353 4351 7567 5461 = 543355|30:5435 3455 3453 1122 = 56467546|30:4153 3244 6546 1288 = 78678567|27:2336 5435 7543 2133 = 46546|
}
Add(ArrayEnum,14904968,224,133)
{
 link(onItem,2991411:doSplit,[])
 link(Array,15757503:Array,[])
}
Add(Edit,11319025,420,147)
{
 Left=15
 Top=15
 Text="1288"
}
Add(StrPart,2991411,273,133)
{
 Char="="
 Point(Left)
 link(onSplit,11826358:doValue,[])
 link(onPart,6810223:doWork2,[(314,146)(314,195)])
}
Add(StrPart,13541331,350,189)
{
 Char=" "
 link(onSplit,6810223:doWork1,[(394,195)(394,178)(333,178)])
 link(onPart,13748706:doCompare,[])
}
Add(Memory,11826358,546,133)
{
 Default=String()
}
Add(HubEx,6810223,329,182)
{
 link(onEvent,13541331:doSplit,[])
}
Add(If_else,13748706,413,196)
{
 link(onTrue,12658768:doEvent1,[])
 link(Op2,11319025:Text,[])
}
Add(Hub,12658768,476,196)
{
 link(onEvent1,14904968:doStop,[(526,202)(526,241)(212,241)(212,146)])
 link(onEvent2,14517457:doMessage,[])
}

#pas
procedure THIStrPart._work_doSplit;
var str:string;
begin
  if (_prop_Char = ') then exit;
  str := ReadString(_Data,_data_Str,');
  if (pos(_prop_Char,str) = 0) then
    _hi_CreateEvent(_Data,@_event_onNotFound,str)
  else if(str <> ') then  // ПОЧЕМУ ПРОВЕРКА НА ПУСТУЮ СТРОКУ В ЭТОМ МЕСТЕ, А НЕ ПОСЛЕ ЧТЕНИЯ СТРОКИ 
   begin
    FLeft := GetTok(str,_prop_Char[1]);
    _hi_OnEvent(_event_onPart,FLeft);
    _hi_CreateEvent(_Data,@_event_onSplit,str);
   end;
end;

#pas
.....................................
   begin
    FLeft := GetTok(str,_prop_Char[1]);
    If _prop_Event then
     begin
    _hi_OnEvent(_event_onPart,FLeft);
    _hi_CreateEvent(_Data,@_event_onSplit,str);
     end
     else
     begin
    _hi_OnEvent(_event_onPart,str);
    _hi_CreateEvent(_Data,@_event_onSplit,FLeft);
     end;
    
   end;

  str := ReadString(_Data,_data_Str,');
       ПОЧЕМУ НЕ ЗДЕСЬ ??? if str=' then exit;
  if (pos(_prop_Char,str) = 0) then