Add(MainForm,16172425,210,238)
{
 Width=264
 Height=198
}
Add(Memo,140264,371,315)
{
 Top=20
 Width=255
 Height=145
}
Add(Edit,1974397,252,273)
{
 Left=55
 Width=200
 Text="6F77B37C0E9BDF6E"
}
Add(Button,284087,210,315)
{
 link(onClick,12060061:doData,[])
}
Add(DoData,12060061,252,315)
{
 link(onEventData,6389307:doRConvert ,[(306,321)(306,328)])
 link(Data,1974397:Text,[])
}
Add(InlineCode,6389307,329,315)
{
 WorkPoints=#37:doConvert=Входящая не разбитая строка|11:doRConvert |
 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);|56:   procedure doRConvert(var _Data:TData; Index:word);   |5: end;|0:|14:implementation|0:|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;|0:|62:procedure THiAsmClass.doRConvert(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;|30:   i := length(txt) - cnt + 1;|23:   while i > 0 do begin|25:      Insert(st, txt, i);|18:      Dec(i, cnt);|7:   end;|45:   if (cnt mod 2) = 0 then Delete(txt, 1, 1);|7:FINALLY|42:   _hi_CreateEvent(_Data, @onResult, txt);|4:END;|4:end;|0:|4:end.|0:|
 link(onResult,140264:doAdd,[])
 link(Count,12713029:Value,[])
 link(Str,2366746:Value,[])
}
Add(Memory,12713029,336,238)
{
 Default=Integer(3)
}
Add(Memory,2366746,343,273)
{
 Default=String(;)
}