Add(Edit,2164993,546,154)
{
Left=5
Top=5
Width=255
}
Add(Button,15131678,455,245)
{
Left=5
Top=30
Width=255
Caption="Раскодировать"
link(onClick,11973333:doEvent1,[])
}
Add(Convertor,11545569,861,364)
{
Mode=4
link(onResult,11603636:doData,[(912,370)(912,353)(744,353)(744,370)])
}
Add(CharArray,15089933,546,245)
{
link(String,2164993:Text,[])
}
Add(ArrayEnum,9239057,546,322)
{
link(onItem,5181081:doCompare,[])
link(onEndEnum,3227796:doText,[(588,335)(588,636)])
link(Array,15089933:Array,[])
}
Add(Hub,11973333,504,245)
{
link(onEvent1,15089933:doLoad,[])
link(onEvent2,9239057:doEnum,[(532,258)(532,328)])
}
Add(Memory,9015650,1127,273)
{
}
Add(Memory,4630728,805,182)
{
}
Add(IndexToChanel,14634181,896,483)
{
Point(Index)
link(onEvent1,5910853:doStrCat,[])
link(onEvent2,12408818:doStrCat,[(947,496)(947,545)])
link(Index,14756690:Var2,[])
}
Add(Memory,3935404,1085,175)
{
Default=Integer(0)
}
Add(StrCat,12408818,966,539)
{
link(onStrCat,3326718:doWork3,[(1033,545)])
link(Str1,14756690:Var3,[(972,338)])
}
Add(StrCat,15506213,749,448)
{
link(onStrCat,6566216:doWork2,[])
link(Str1,16710512:Var1,[(755,436)])
link(Str2,11603636:GetData,[])
}
Add(StrCat,5910853,1127,483)
{
link(onStrCat,6566216:doWork1,[(1171,489)(1171,454)])
link(Str1,16710512:Var2,[])
}
Add(Hub,7423780,686,322)
{
link(onEvent1,4630728:doValue,[(718,328)(718,188)])
link(onEvent2,58100:doData,[(732,335)(732,244)])
}
Add(DoData,58100,805,238)
{
Data=Integer(1)
link(onEventData,3326718:doWork2,[(865,244)(865,181)])
}
Add(If_else,5181081,609,322)
{
Op2=String(&)
link(onTrue,7423780:doEvent1,[])
link(onFalse,9171831:doCompare,[(657,335)(657,384)])
}
Add(If_else,9171831,672,378)
{
Op2=String(;)
link(onTrue,15506213:doStrCat,[(737,384)(737,454)])
link(onFalse,14634181:doEvent,[(713,391)(713,489)])
}
Add(HubEx,6566216,1064,441)
{
Angle=3
link(onEvent,9015650:doValue,[(1068,279)])
}
Add(EventFromData,11603636,756,364)
{
link(onEvent,1424321:doConvert,[])
}
Add(GetDataEx,16710512,1120,427)
{
link(Data,9015650:Value,[])
}
Add(GetDataEx,14756690,889,329)
{
link(Data,3935404:Value,[(902,270)(1091,270)])
}
Add(Convertor,1424321,805,364)
{
Mode=1
link(onResult,11545569:doConvert,[])
link(Data,14756690:Var1,[(811,338)])
}
Add(HubEx,3326718,1029,168)
{
link(onEvent,3935404:doValue,[])
}
Add(Edit,3227796,1169,630)
{
Left=5
Top=50
Width=255
link(Str,16710512:Var3,[(1175,436)])
}
Для вторых делается таблица соответствия последовательность -> код (ASCII, ANSI или UTF8).
------------ Дoбавленo в 06.17:
Да, при использовании моей схемы правильно обработаются только символы с кодом до 254 (� ... þ)