Add(MainForm,2953706,98,147)
{
 Width=441
 Height=146
}
Add(InlineCode,708863,329,112)
{
 WorkPoints=#5:doTad|7:doNesco|
 EventPoints=#7:onTrim1|
 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|21:   onTrim1:THI_Event;|47:   procedure doTad(var _Data:TData;Index:Word);|49:   procedure doNesco(var _Data:TData;Index:Word);|5: end;|0:|14:implementation|35:function tad(Str : string): string;|3:var|13:  L: integer;|5:begin|19:  L := Length(Str);|46:  while (L > 0) and (Str[L] <= ' ') do Dec(L);|20:  SetLength(Str, L);|9:  L := 1;|57:  while (L <= Length(Str)) and (Str[L] <= ' ') do Inc(L);|53:  Result := string(PChar(integer(@Str[1]) + L - 1)); |4:end;|0:|43:function nesco(const Str : string): string;|3:var|13:  L: integer;|5:begin|14:  Result:=Str;|22:  L := Length(Result);|49:  while (L > 0) and (Result[L] <= ' ') do Dec(L);|23:  SetLength(Result, L);|9:  L := 1;|63:  while (L <= Length(Result)) and (Result[L] <= ' ') do Inc(L);|56:  Result := string(PChar(integer(@Result[1]) + L - 1)); |4:end;|0:|29: procedure THiAsmClass.doTad;|6: BEGIN|150:  _hi_onEvent(onTrim1,tad('                                                      Пробная строка                                                   '));|5: END;|0:|31: procedure THiAsmClass.doNesco;|6: BEGIN|152:  _hi_onEvent(onTrim1,nesco('                                                      Пробная строка                                                   '));|5: END;|4:end.|
 link(onTrim1,12170476:doText,[])
}
Add(Label,12170476,399,112)
{
 Left=105
 Top=55
}
Add(Button,9970309,98,98)
{
 Left=30
 Top=55
 Caption="Test"
 link(onClick,6967569:doEvent1,[])
}
Add(Label,8545957,399,49)
{
 Left=330
 Top=55
 Width=4
 Height=4
 Caption=""
 Alignment=1
}
Add(Label,10677244,399,189)
{
 Left=330
 Top=80
 Width=4
 Height=4
 Caption=""
 Alignment=1
}
Add(Hub,13959891,203,105)
{
 OutCount=3
 link(onEvent1,2774491:doStart,[(237,111)(237,48)])
 link(onEvent2,708863:doTad,[])
 link(onEvent3,2774491:doStop,[(249,125)(249,55)])
}
Add(TimeCounter,2774491,329,42)
{
 Precision=1
 link(onStop,8545957:doText,[])
}
Add(TimeCounter,13573240,329,182)
{
 Precision=1
 link(onStop,10677244:doText,[])
}
Add(Hub,10083536,203,182)
{
 OutCount=3
 link(onEvent1,13573240:doStart,[])
 link(onEvent2,708863:doNesco,[(273,195)(273,125)])
 link(onEvent3,13573240:doStop,[(301,202)(301,195)])
}
Add(Hub,6967569,154,98)
{
 link(onEvent1,10083536:doEvent1,[(178,104)(178,188)])
 link(onEvent2,13959891:doEvent1,[])
}
Add(Label,3343612,448,49)
{
 Left=275
 Top=55
 Caption="Tad"
}
Add(Label,6614952,448,189)
{
 Left=270
 Top=80
 Caption="nesco"
}

Delete(Result, 1, L - 1);

Result := string(PChar(integer(@Result[1]) + L - 1));