Make(delphi)
ver(4.04 build 185)
Add(MainForm,8040823,105,119)
{
 Width=267
 Height=146
 Position=1
}
Add(Edit,14795161,154,119)
{
 Left=25
 Top=25
 Width=85
 Text="12FFFFFFFFFF"
}
Add(Button,16697015,105,168)
{
 Left=35
 Top=65
 link(onClick,14207005:doWork,[])
}
Add(Edit,4553593,203,168)
{
 Left=150
 Top=25
 Width=85
 Text=""
}
Add(InlineCode,14207005,154,168)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 DataPoints=#6:HexStr|
 Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|28:   HexStr, onRes: THI_Event;|50:   procedure doWork(var _Data:TData; Index: Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doWork;|21:Var hstr, s2: string;|19:    k, r : integer;|14:    f:boolean;|5:BEGIN|34: hstr := ReadString(_Data,HexStr);|22: If hstr='' then exit;|9: f:=True;|32: for k:=Length(hstr) downto 1 do|10:     begin|15:     if f then |12:       begin|31:        r:=Hex2Int(hstr[k])+ 1;|21:        if r>15 then |24:           s2:='0' + s2 |13:        else |15:         begin |35:          s2 := int2hex(r,1) + s2 ;|22:          f := false; |13:         end;|10:       end|29:        else s2:=hstr[k]+s2; |9:     end;|23: _hi_onEvent(onRes,s2);|1: |4:END;|4:end.|
 link(onRes,4553593:doText,[])
 link(HexStr,14795161:Text,[])
}
Add(Label,9220022,203,119)
{
 Left=115
 Top=25
 Width=28
 Height=17
 Caption="+ 1 ="
}