Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2017-11-21 20:36:54 ЛС | профиль | цитата
skorobeyspb, пять секунд на 640000 символов устроит? (Win7, 3500 МГц, ОЗУ 8 Гб)


Add(MainForm,2953706,777,210)
{
Width=798
Height=306
link(onCreate,12651080:doWork2,[(816,230)(816,251)(172,251)(172,111)])
}
Add(MultiElement,5452683,525,154)
{
link(onEvent1,8598429:doSimvol,[])
}
BEGIN_SDK
Add(EditMulti,14062513,14,7)
{
EventCount=1
WorkCount=1
Width=223
Height=144
link(doWork1,8764461:doReplace,[(67,13)(67,41)])
}
Add(Replace,8764461,77,35)
{
SubStr="\10"
DestStr=" "
link(onReplace,13781638:doReplace,[])
}
Add(Replace,13781638,133,35)
{
SubStr="\13"
link(onReplace,14062513:onEvent1,[(172,41)(172,13)])
}
END_SDK
Add(InfoTip,10677425,490,119)
{
Info=#7:Фильтры|
Width=106
Height=102
}
Add(Memo,13721227,308,140)
{
Left=55
Top=1
Width=360
Height=260
ScrollBars=2
link(onChange,3124031:doTimer,[])
}
Add(BitBtn,11517881,105,91)
{
Top=5
link(onClick,6497433:doEvent1,[])
}
Add(ODialog,2082917,182,49)
{
}
Add(Str_Enum,7820137,441,154)
{
Delimiter=""
link(onEnum,5452683:doWork1,[])
link(onEndEnum,8598429:doStop,[])
link(String,13721227:Text,[(447,131)(398,131)(398,201)(314,201)])
}
Add(Hub,7875099,406,140)
{
OutCount=3
link(onEvent1,8598429:doStart,[(599,146)(599,153)])
link(onEvent2,5765131:doStart,[(431,153)(431,209)])
link(onEvent3,7820137:doEnum,[])
}
Add(RichEdit,8140962,693,133)
{
Left=420
Top=1
Width=360
Height=260
ScrollBars=3
InsertCRLF=1
}
Add(TimeCounter,5765131,693,203)
{
link(onStop,15088095:doString,[])
}
Add(Hub,6417071,658,147)
{
link(onEvent1,8140962:doText,[])
link(onEvent2,5765131:doStop,[(683,160)(683,216)])
}
Add(Hub,6497433,154,91)
{
link(onEvent1,7345710:doClear,[(228,97)(228,118)])
link(onEvent2,12651080:doWork1,[])
}
Add(MultiElement,12651080,182,98)
{
link(onEvent1,12095356:doData,[(221,104)(221,167)])
link(onEvent2,7345710:doAdd,[])
}
BEGIN_SDK
Add(EditMulti,6229223,21,21)
{
EventCount=2
WorkCount=2
Width=391
Height=151
link(doWork1,8604866:doFor,[(39,27)(39,55)])
link(doWork2,14358382:doRandSeed,[(214,34)(214,69)])
}
Add(For,8604866,49,49)
{
End=5500
link(onEvent,3176202:doFor,[])
link(onStop,6229223:onEvent1,[(88,62)(88,27)])
}
Add(For,3176202,105,49)
{
End=9
link(onEvent,8728549:doFor,[])
link(onStop,2882879:doEvent1,[(151,62)(151,146)])
}
Add(For,8728549,161,49)
{
End=9
link(onEvent,14358382:doRandom,[])
link(onStop,15012832:doData,[(207,62)(207,97)])
}
Add(Random,14358382,231,49)
{
Min=224
Max=255
link(onRandom,9397542:doConvert,[])
}
Add(StrCat,14624114,336,49)
{
Point(doClear)
link(Str1,7137491:Var3,[(342,40)(376,40)(376,91)])
}
Add(Convertor,9397542,273,49)
{
Mode=4
link(onResult,8552071:doWork2,[])
}
Add(DoData,15012832,273,91)
{
Data=String( )
link(onEventData,8552071:doWork3,[(319,97)])
}
Add(HubEx,8552071,315,49)
{
link(onEvent,14624114:doStrCat,[])
}
Add(Hub,2882879,287,140)
{
link(onEvent1,15495871:doData,[(333,146)(333,111)])
link(onEvent2,14624114:doClear,[(326,153)(326,62)])
}
Add(DoData,15495871,343,105)
{
link(onEventData,6229223:onEvent2,[(391,111)(391,34)])
link(Data,7137491:Var2,[])
}
Add(GetDataEx,7137491,343,86)
{
Angle=3
link(Data,14624114:Result,[(342,91)])
}
END_SDK
Add(Timer,3124031,357,140)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,7875099:doEvent1,[])
}
Add(FormatStr,15088095,735,210)
{
Mask="Обработано %1 символов за %2 мсек"
link(onFString,2953706:doCaption,[])
link(Str1,7820137:NumSubStr,[(741,201)(447,201)])
}
Add(StrList,7345710,252,105)
{
}
Add(DoData,12095356,252,161)
{
link(onEventData,13721227:doText,[])
link(Data,7345710:Text,[])
}
Add(InlineCode,8598429,609,147)
{
WorkPoints=#7:doStart|8:doSimvol|6:doStop|
EventPoints=#5:onRes|
VarPoints=#
DataPoints=#
Code=#15:unit HiAsmUnit;|17:// Author Tad 8-)|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|13: ss:string;|9: public|24: onRes : THI_Event;|52: PROCEDURE doStart(var _Data:TData; Index:Word);|53: PROCEDURE doSimvol(var _Data:TData; Index:Word);|51: PROCEDURE doStop(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|30:PROCEDURE THiAsmClass.doStart;|0:|5:BEGIN|9: ss:='';|4:END;|0:|31:PROCEDURE THiAsmClass.doSimvol;|0:|5:BEGIN|25: ss:=ss+toString(_Data);|4:END;|0:|29:PROCEDURE THiAsmClass.doStop;|5:BEGIN|24: _hi_onEvent(onRes,ss);|9: ss:='';|4:END;|0:|4:end.|
link(onRes,6417071:doEvent1,[])
}

карма: 19

0