Add(MainForm,2953706,70,112)
{
 Width=429
}
Add(Edit,14621716,161,112)
{
 Left=5
 Top=5
 Width=400
 Text="\u0420\u0435\u0441\u0442\u0430\u0432\u0440\u0430\u0446\u0438\u044f"
}
Add(InlineCode,12023673,301,168)
{
 WorkPoints=#6:doTest|
 EventPoints=#5:onRes|
 VarPoints=#
 DataPoints=#
 Code=#15:unit HiAsmUnit;|13:// Author Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|4:    |9:   public|4:    |24:     onRes  : THI_Event;|51:     PROCEDURE doTest(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doTest;|13:var s:string;|5:BEGIN|21:  s:=toString(_Data);|34:   if s='\u0410' then s:= 'А' else|34:   if s='\u0430' then s:= 'а' else|34:   if s='\u0411' then s:= 'Б' else|34:   if s='\u0431' then s:= 'б' else|34:   if s='\u0412' then s:= 'В' else|34:   if s='\u0432' then s:= 'в' else|34:   if s='\u0413' then s:= 'Г' else|34:   if s='\u0433' then s:= 'г' else|34:   if s='\u0414' then s:= 'Д' else|34:   if s='\u0434' then s:= 'д' else|34:   if s='\u0415' then s:= 'Е' else|34:   if s='\u0435' then s:= 'е' else|34:   if s='\u0401' then s:= 'Ё' else|34:   if s='\u0451' then s:= 'ё' else|34:   if s='\u0416' then s:= 'Ж' else|34:   if s='\u0436' then s:= 'ж' else|34:   if s='\u0417' then s:= 'З' else|34:   if s='\u0437' then s:= 'з' else|34:   if s='\u0418' then s:= 'И' else|34:   if s='\u0438' then s:= 'и' else|34:   if s='\u0419' then s:= 'Й' else|34:   if s='\u0439' then s:= 'й' else|34:   if s='\u041a' then s:= 'К' else|34:   if s='\u043a' then s:= 'к' else|34:   if s='\u041b' then s:= 'Л' else|34:   if s='\u043b' then s:= 'л' else|34:   if s='\u041c' then s:= 'М' else|34:   if s='\u043c' then s:= 'м' else|34:   if s='\u041d' then s:= 'Н' else|34:   if s='\u043d' then s:= 'н' else|34:   if s='\u041e' then s:= 'О' else|34:   if s='\u043e' then s:= 'о' else|34:   if s='\u041f' then s:= 'П' else|34:   if s='\u043f' then s:= 'п' else|34:   if s='\u0420' then s:= 'Р' else|34:   if s='\u0440' then s:= 'р' else|34:   if s='\u0421' then s:= 'С' else|34:   if s='\u0441' then s:= 'с' else|34:   if s='\u0422' then s:= 'Т' else|34:   if s='\u0442' then s:= 'т' else|34:   if s='\u0423' then s:= 'У' else|34:   if s='\u0443' then s:= 'у' else|34:   if s='\u0424' then s:= 'Ф' else|34:   if s='\u0444' then s:= 'ф' else|34:   if s='\u0425' then s:= 'Х' else|34:   if s='\u0445' then s:= 'х' else|34:   if s='\u0426' then s:= 'Ц' else|34:   if s='\u0446' then s:= 'ц' else|34:   if s='\u0427' then s:= 'Ч' else|34:   if s='\u0447' then s:= 'ч' else|34:   if s='\u0428' then s:= 'Ш' else|34:   if s='\u0448' then s:= 'ш' else|34:   if s='\u0429' then s:= 'Щ' else|34:   if s='\u0449' then s:= 'щ' else|34:   if s='\u042a' then s:= 'Ъ' else|34:   if s='\u044a' then s:= 'ъ' else|34:   if s='\u042d' then s:= 'Ы' else|34:   if s='\u044b' then s:= 'ы' else|34:   if s='\u042c' then s:= 'Ь' else|34:   if s='\u044c' then s:= 'ь' else|34:   if s='\u042d' then s:= 'Э' else|34:   if s='\u044d' then s:= 'э' else|34:   if s='\u042e' then s:= 'Ю' else|34:   if s='\u044e' then s:= 'ю' else|34:   if s='\u042f' then s:= 'Я' else|31:   if s='\u044f' then s:= 'я' ;|0:|23:  _hi_onEvent(onRes,s);|4:END;|0:|0:|4:end.|
 link(onRes,2841329:doStrCat,[])
}
Add(Str_Enum,5096056,203,168)
{
 Delimiter="\"
 link(onEnum,8849573:doStrCat,[])
 link(onEndEnum,8577942:doData,[(242,181)(242,230)])
}
Add(Button,15316937,70,154)
{
 Left=10
 Top=35
 link(onClick,13388865:doEvent1,[])
}
Add(StrCat,8849573,252,168)
{
 Str1="\"
 link(onStrCat,12023673:doTest,[])
}
Add(Hub,13388865,112,154)
{
 OutCount=3
 link(onEvent1,2841329:doClear,[(340,160)(340,181)])
 link(onEvent2,3218203:doTrim,[(144,167)(144,174)])
 link(onEvent3,14437037:doCharset,[(137,174)(137,272)])
}
Add(StrCat,2841329,357,168)
{
 Point(doClear)
 link(Str1,14457554:Var1,[(363,159)(349,159)(349,208)])
}
Add(DoData,8577942,357,224)
{
 link(onEventData,2325268:doText,[])
 link(Data,14457554:Var2,[])
}
Add(GetDataEx,14457554,357,203)
{
 link(Data,2841329:Result,[])
}
Add(Label,2325268,406,224)
{
 Left=90
 Top=40
}
Add(Trim,3218203,161,168)
{
 Char="\"
 link(onTrim,5096056:doEnum,[])
 link(Text,2827549:Var2,[])
}
Add(Charset,14437037,147,266)
{
 Type=9
 link(onCharset,12660930:doText,[])
 link(Text,2827549:Var1,[(153,152)])
}
Add(GetDataEx,2827549,161,147)
{
 link(Data,14621716:Text,[])
}
Add(Label,12660930,203,266)
{
 Left=90
 Top=65
}