Add(InlineCode,7084589,420,287)
{
 WorkPoints=#38:doConvert=Входящая не разбитая строка |
 EventPoints=#34:onResult=Выходящая разбитая строка|
 DataPoints=#4:Data|5:Count|3:Str|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|0:|18:   Data:THI_Event;|19:   Count:THI_Event;|17:   Str:THI_Event;|22:   onResult:THI_Event;|3:   |52:   procedure doConvert(var _Data:TData; Index:word);|5: end;|0:|14:implementation|61:procedure THiAsmClass.doConvert(var _Data:TData; Index:word);|20:var   i, l: Integer;|21:      txt, st:string;|18:      cnt:integer;|5:begin|35:   txt  := ReadString(_Data, Data);|34:   st   := ReadString(_Data, Str);|37:   cnt  := ReadInteger(_Data, Count);|24:   Replace(txt, ,');|3:TRY|20:   l := Length(txt);|25:   if l <= cnt then exit;|16:   i := cnt + 1;|24:   while i <= l do begin|25:      Insert(st, txt, i);|13:      Inc(l);|22:      Inc(i, cnt + 1);|7:   end;|7:FINALLY|42:   _hi_CreateEvent(_Data, @onResult, txt);|4:END;|4:end;|4:end.|
 link(onResult,3589592:doMessage,[])
 link(Data,7331343:Value,[(426,233)(384,233)])
 link(Count,3096900:Value,[])
 link(Str,13981389:Value,[(440,265)(510,265)])
}
Add(Memory,3096900,427,175)
{
 Default=Integer(2)
}
Add(Message,3589592,504,287)
{
}
Add(Memory,13981389,504,210)
{
 Default=String(dddd)
}
Add(MainForm,4064596,350,273)
{
 link(onCreate,7084589:doConvert,[])
}
Add(Memory,7331343,378,147)
{
 Default=String(i i i i)
}