Add(MainForm,2953706,224,140)
{
 Width=481
 link(onCreate,5185348:doReplace,[])
}
Add(RE_Replace,5185348,294,154)
{
 Expression="/\B(?=(\d{3})+(?!\d))/g"
 ReplaceStr="" ""
 link(onReplace,7431806:doText,[])
 link(SourceStr,13162034:Text,[])
}
Add(StrList,13162034,294,91)
{
 Strings=#24:тысяча 1000, тысяча 1000|38:десять тысяч 10000, десять тысяч 10000|34:сто тысяч 100000, сто тысяч 100000|32:миллион 1000000, миллион 1000000|52:десять миллионов 10000000, десять миллионов 10000000|48:сто миллионов 100000000, сто миллионов 100000000|
}
Add(Memo,7431806,357,133)
{
 Left=10
 Top=10
 Width=445
 Height=245
}

Add(MainForm,4012307,294,245)
{
 Width=481
 link(onCreate,16188588:doReverse,[])
}
Add(RE_Replace,5185348,448,259)
{
 Expression="(\d{3})"
 ReplaceStr="$1 "
 link(onReplace,6504834:doReverse,[])
}
Add(StrList,13162034,378,196)
{
 Strings=#24:тысяча 1000, тысяча 1000|38:десять тысяч 10000, десять тысяч 10000|34:сто тысяч 100000, сто тысяч 100000|32:миллион 1000000, миллион 1000000|52:десять миллионов 10000000, десять миллионов 10000000|48:сто миллионов 100000000, сто миллионов 100000000|
}
Add(Memo,7431806,567,238)
{
 Left=10
 Top=10
 Width=445
 Height=245
}
Add(StrReverse,16188588,378,259)
{
 link(onResult,5185348:doReplace,[])
 link(Str,13162034:Text,[])
}
Add(StrReverse,6504834,511,259)
{
 link(onResult,7431806:doText,[])
}