Add(MainForm,2650169,91,91)
{
 Width=435
 Height=80
}
Add(Edit,3392202,175,91)
{
 Left=85
 Top=10
 Width=160
 Text="50/ИС/Агр (ф1)"
}
Add(Button,14020158,91,140)
{
 Left=15
 Top=10
 link(onClick,7190633:doWork,[])
}
Add(Edit,2588733,231,140)
{
 Left=250
 Top=10
 Width=160
 Text=""
}
Add(InlineCode,7190633,175,140)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 DataPoints=#3:Isx|
 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:   Isx, onRes : THI_Event;|49:   procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doWork;|15:var S : string;|19:    Num,i: integer;|4:    |5:begin|9:  i := 1;|36:  S := Trim(ReadString(_Data, Isx));|20:  If S='' then Exit;|38:  While S[i] in ['0'..'9'] do inc(i); |34:  Num := Str2Int(Copy(S,1,i-1))+1;|33:  S := Int2Str(Num)+CopyEnd(S,i);|23:  _hi_onEvent(onRes,S);|4:end;|4:end.|
 link(onRes,2588733:doText,[])
 link(Isx,3392202:Text,[])
}

Add(MainForm,2650169,140,189)
{
 Width=435
 Height=80
}
Add(Edit,3392202,224,189)
{
 Left=85
 Top=10
 Width=160
 Text="50/ИС/Агр (ф1)"
}
Add(Button,14020158,140,259)
{
 Left=15
 Top=10
 Data=Integer(0)
 link(onClick,13105256:doEvent1,[])
}
Add(Edit,2588733,448,308)
{
 Left=250
 Top=10
 Width=160
 Text=""
}
Add(Math,1342380,224,259)
{
 ResultType=0
 link(onResult,7270416:doLength,[])
 link(Op1,882628:Var2,[])
}
Add(Length,7270416,266,259)
{
 link(onLength,14427463:doOperation,[])
}
Add(Math,14427463,308,259)
{
 Op2=1
 ResultType=0
 link(onResult,15097505:doCopy,[])
}
Add(Copy,15097505,350,259)
{
 Count=99999999
 link(onCopy,5352959:doValue,[])
 link(Str,882628:Var3,[(356,236)])
}
Add(GetDataEx,882628,224,231)
{
 link(Data,3392202:Text,[])
}
Add(Hub,13105256,182,259)
{
 link(onEvent1,1342380:doOperation,[])
 link(onEvent2,6642270:doOperation,[(203,272)(203,314)])
}
Add(Math,6642270,210,308)
{
 Op2=1
 ResultType=0
 link(onResult,6271305:doStrCat,[])
 link(Op1,882628:Var1,[(216,236)])
}
Add(Memory,5352959,392,259)
{
}
Add(StrCat,6271305,385,308)
{
 link(onStrCat,2588733:doText,[])
 link(Str2,5352959:Value,[])
}