Add(MainForm,1686861,245,154)
{
 Height=308
 Position=1
}
Add(Memo,13325776,385,203)
{
 Left=10
 Top=60
 Width=375
 Height=195
}
Add(Edit,5747742,294,154)
{
 Left=5
 Top=5
 Width=380
 Text="45/86- «Лорд» пакет. Пастель 78451682. свинец. Синий 785215 краб картон. ABC"
}
Add(Button,4023732,245,203)
{
 Left=155
 Top=30
 Caption="V V V"
 link(onClick,6238456:doParse,[])
}
Add(InlineCode,6238456,294,203)
{
 WorkPoints=#7:doParse|
 EventPoints=#5:onRes|
 DataPoints=#3:Str|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|26:     _data_Data:THI_Event;|19:     Str:THI_Event;|22:     onRes: THI_Event;|4:    |49:	 procedure doParse(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doParse;|16:var s,ss:string;|14:    i:integer;|5:begin|9:  ss:='';|32:  s:=ReadString(_Data, Str, '');|23:   if s = '' then Exit;|26:  for i:=1 to Length(s) do|8:   begin|16:    ss:=ss+s[i];|21:     if s[i]='.' then|8:	  begin|66:	   if ((s[i+1]=' ') and (s[i+2] in ['A'..'Z','А'..'Я','Ё'])) then|10:	    begin|28:	     _hi_onEvent(onRes,ss);|13:	     ss:='';|9:	    end;|8:	  end; |7:   end;|43:  if ss='' then else _hi_onEvent(onRes,ss);|4:end;|0:|4:end.|
 link(onRes,9720243:doTrim,[])
 link(Str,5747742:Text,[])
}
Add(Trim,9720243,336,203)
{
 Char=" "
 link(onTrim,13325776:doAdd,[])
}