Add(InlineCode,396202,217,308)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|4:    |9:   public|22:     onRes: THI_Event;|48:     procedure doWork(var dt: TData; idx: word);|0:|5: end;|0:|14:implementation|0:|55:procedure THiAsmClass.doWork(var dt: TData; idx: word);|35:var arrStr: array [1..9] of string;|22:    sIn,sOut: string; |25:    i,iRes,n: integer;   |5:begin|44:  sIn := ToString(dt); iRes := 0; sOut:=''; |57:  IF sin='' then begin   _hi_OnEvent(onRes,''); exit end;|36:  for i:= 1 to 9 do arrStr[i] := '';|31:  for i := 1 to Length(sIn) do |8:   begin|25:    n := ord(sin[i])-48; |64:    IF sin[i] in ['1'..'9'] then arrStr[n] := arrStr[n] + sin[i]|8:   end ;|20:  for i := 1 to 9 do|33:    if Length(arrStr[i]) > 1 then|11:      begin|33:        sOut := sOut + arrStr[i];|45:        iRes := iRes + (Length(arrStr[i])*i);|10:      end;|68:  _hi_OnEvent(onRes,sin + '    '+ sOut + '    =' + Int2Str(iRes));  |4:end;|0:|4:end.|
}