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 раз быстрее)
|