nesco писал(а):
Перебор строк в Memo, ИМХО, не самый быстрый способAdd(MainForm,2953706,105,224)
{
Width=1000
Height=596
}
Add(Memo,16070677,448,112)
{
Left=10
Top=30
Width=435
Height=510
ScrollBars=3
}
Add(StrList,7536952,756,182)
{
Point(doSort)
}
Add(MultiStrPart,2555795,546,182)
{
Char=" "
Count=1
link(onSplit,7618220:doSearch,[])
}
Add(FormatStr,1332937,644,182)
{
link(onFString,4728640:doReplace,[])
link(Str1,2555795:Part1,[(650,170)(636,170)(636,225)(552,225)])
}
Add(MultiStrData,14755937,497,182)
{
Char=" "
From=1
Count=1
link(onPart1,2555795:doSplit,[])
}
Add(BlockFind,7618220,595,182)
{
StartBlock="["
EndBlock="]"
link(onSearch,1332937:doString,[])
}
Add(Replace,4728640,686,182)
{
SubStr=" | -HEADSHOT-"
link(onReplace,7536952:doAdd,[])
}
Add(ListBox,9452010,875,266)
{
Left=495
Top=30
Width=475
Height=505
}
Add(ArrayCountRepeats,16085781,770,266)
{
link(onCount,10526269:doStr,[])
link(Array,7536952:Array,[])
}
Add(MT_String,10526269,819,266)
{
Delimeter=" "
link(onResult,9452010:doAdd,[])
}
Add(Button,7753693,161,301)
{
Left=500
Top=10
Width=95
Caption="Save"
link(onClick,8282911:doExecute,[])
}
Add(SDialog,8282911,217,301)
{
Filter="Text|*.txt"
FileName=""
Point(FileName)
link(onExecute,9452010:doSave,[])
link(FileName,5196492:Part1,[])
}
Add(ODialog,1006367,140,161)
{
Filter="Log|*.log"
FileName=""
link(onExecute,9822594:doEvent1,[])
}
Add(Button,13105568,98,161)
{
Left=10
Top=10
Width=120
Caption="Open"
link(onClick,1006367:doExecute,[])
}
Add(Hub,3768074,721,259)
{
link(onEvent1,7536952:doSort,[(745,265)(745,230)])
link(onEvent2,16085781:doCount,[])
}
Add(Charset,6746549,364,175)
{
Type=9
link(onCharset,10965763:doEvent1,[])
}
Add(FileStream,10959428,266,175)
{
link(onLoad,14499661:doConvert,[])
}
Add(StreamConvertor,14499661,315,175)
{
Mode=6
link(onResult,6746549:doCharset,[])
}
Add(MultiStrPart,5196492,217,182)
{
Char="."
Count=1
}
Add(Hub,9822594,182,161)
{
OutCount=4
link(onEvent1,9452010:doClear,[(866,167)(866,279)])
link(onEvent2,7536952:doClear,[(737,174)(737,195)])
link(onEvent3,10959428:doOpen,[])
link(onEvent4,5196492:doSplit,[])
}
Add(BlockFind,14882931,441,182)
{
StartBlock="PlayerKilled"
EndBlock="]"
link(onSearch,14755937:doSplit,[])
link(onEndSearch,3768074:doEvent1,[(484,195)(484,265)])
}
Add(Hub,10965763,406,175)
{
link(onEvent1,16070677:doText,[(434,181)(434,139)])
link(onEvent2,14882931:doSearch,[])
}