Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2018-08-27 19:37:39 ЛС | профиль | цитата
Vadimluk1, а так (и всего 9 против твоих 30 компонент)
Add(MainForm,1052739,714,553)
{
}
Add(Edit,1538820,385,483)
{
Left=10
Top=45
Width=365
Text="*?E/d|i"@t"
ClearAfterEnter=1
link(onEnter,2080582:doEvent1,[])
}
Add(Str_Enum,15397967,476,497)
{
Delimiter=""
link(onEnum,5205782:doGetIndex,[])
link(onEndEnum,11292567:doData,[(520,510)(520,559)])
}
Add(If_else,9702204,581,483)
{
Op1=Integer(-1)
link(onTrue,3324352:doStrCat,[])
}
Add(StrCat,3324352,651,483)
{
Point(doClear)
link(Str1,15499542:Var1,[(657,478)(648,478)(648,537)])
link(Str2,15397967:Part,[(664,462)(753,462)(753,595)(489,595)])
}
Add(GetDataEx,15499542,651,532)
{
link(Data,3324352:Result,[])
}
Add(DoData,11292567,651,553)
{
Point(Data)
link(onEventData,1052739:doCaption,[])
link(Data,15499542:Var2,[])
}
Add(Hub,2080582,434,490)
{
link(onEvent1,3324352:doClear,[(461,496)(461,470)(626,470)(626,496)])
link(onEvent2,15397967:doEnum,[])
}
Add(StrList,5205782,532,483)
{
Strings=#1:\|1:/|1::|1:*|1:?|1:"|1:<|1:>|1:||1:+|1:%|1:!|1:@|
Point(onGetIndex)
Point(doGetIndex)
link(onGetIndex,9702204:doCompare,[])
}

И я проверяю 14 знаков, а ты 73 (уже в 5 раз быстрее)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 2 раз(а), последний 2018-08-27 19:44:02