Add(Button,10504036,217,203)
{
 Left=150
 Top=120
 link(onClick,11970995:doWork,[])
}
Add(InlineCode,11970995,301,203)
{
 WorkPoints=#6:doWork|
 EventPoints=#8:onResult|
 VarPoints=#4:Var1|4:Var2|
 DataPoints=#5:Data1|5:Data2|
 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|28:     Data1, Data2:THI_Event;|27:     onResult:THI_Event;   |51:     procedure doWork(var _Data:TData; index:word);|49:     procedure Var1(var _Data:TData; index:word);|49:     procedure Var2(var _Data:TData; index:word);|5: end;|0:|14:implementation|0:|0:|0:|58:procedure THiAsmClass.doWork(var _Data:TData; index:word);|3:var|18:  s1, s2: string; |5:begin|37:  s1 := ReadString(_Data, Data1, '');|11:  s2 := s1;|19:  SetLength(s2, 0);|13:  _debug(s1);|2:  |33:  // ReadInteger(_Data, Data2, 0)|42:  // _hi_CreateEvent(_Data, @onResult, 0);|33:  //_hi_OnEvent(onResult, 'abc');|4:end;|0:|0:|57:procedure THiAsmClass.Var1(var _Data:TData; index:word); |5:begin|22:  dtInteger(_Data, 0);|4:end;|0:|57:procedure THiAsmClass.Var2(var _Data:TData; index:word); |5:begin|22:  dtString(_Data, '');|4:end;|0:|4:end.|
 link(Data1,12710020:Text,[])
}
Add(Edit,12710020,301,147)
{
 Left=75
 Top=50
 Width=80
}

Add(Button,1278441,196,462)
{
 Left=75
 Top=140
 link(onClick,13115854:doEvent1,[])
}
Add(Memory,7470773,245,343)
{
 Default=String(abcdef)
}
Add(Hub,13115854,252,462)
{
 OutCount=3
 link(onEvent1,1958132:doMessage,[])
 link(onEvent2,13269969:doModify,[(308,475)(308,552)])
 link(onEvent3,300142:doMessage,[(287,482)(287,643)])
}
Add(LineBreakEx,2624889,350,427)
{
 Caption="str"
 Type=2
}
Add(LineBreakEx,6354434,245,385)
{
 Caption="str"
 Type=3
 link(_Data,7470773:Value,[])
}
Add(Message,1958132,350,462)
{
 Caption="Before"
 link(Message,2624889:getVar,[])
}
Add(StrCase,13269969,350,546)
{
 Type=1
 link(onModify,7657121:doText,[])
 link(Str,5777113:getVar,[])
}
Add(LineBreakEx,5777113,350,518)
{
 Caption="str"
 Type=2
}
Add(LineBreakEx,9602436,350,602)
{
 Caption="str"
 Type=2
}
Add(Message,300142,350,637)
{
 Caption="Before"
 link(Message,9602436:getVar,[])
}
Add(Label,7657121,413,546)
{
 Left=140
 Top=145
}

#pas
procedure THIStrCase._work_doModify;
var
  str: string;
begin
  str := ReadString(_Data, _data_Str); //+#0;
  _prop_Type(str);
//  SetLength(str, length(str) - 1); 
  _hi_CreateEvent(_Data, @_event_onModify, str);
end;

#pas
function LeftPad(S: string; Ch: Char; Len: Integer): string;
var
  RestLen: Integer;
begin
  Result  := S;
  RestLen := Len - Length(s);
  if RestLen < 1 then Exit;
  Result := S + StringOfChar(Ch, RestLen);
end;

function RightPad(S: string; Ch: Char; Len: Integer): string;
var
  RestLen: Integer;
begin
  Result  := S;
  RestLen := Len - Length(s);
  if RestLen < 1 then Exit;
  Result := StringOfChar(Ch, RestLen) + S;
end;