Вверх ↑
Ответов: 537
Рейтинг: 14
#1: 2019-07-07 20:45:57 ЛС | профиль | цитата
Готовый алгоритм поиска с сортировкой

Add(MainForm,16510308,28,126)
{
Width=950
Height=493
}
Add(Button,11319419,77,126)
{
Left=21
Top=2
Width=96
Caption="Sort"
Data=Integer(0)
link(onClick,4160889:doBrowse,[])
}
Add(StringTable,16470224,364,147)
{
Left=14
Top=21
Width=154
Height=161
Visible=1
Columns=#5:файлы|
Point(doSortExtCmp)
Point(doSortDigit)
Point(ExtCmp)
Point(Strings)
}
Add(Memo,3559153,518,196)
{
Left=15
Top=25
Width=915
Height=420
ScrollBars=2
}
Add(ArrayEnum,12459184,378,196)
{
link(onItem,11903282:doStrCat,[])
link(Array,16470224:Strings,[])
}
Add(Hub,3891663,336,189)
{
link(onEvent1,16470224:doSortDigit,[(357,195)(357,181)])
link(onEvent2,12459184:doEnum,[])
}
Add(FileSearch,11263694,217,133)
{
SubDir=1
FullName=1
link(onSearch,1151140:doAdd,[])
link(onEndSearch,9673017:doEnum,[(260,146)(260,188)])
link(Dir,9089307:Var2,[])
}
Add(Edit,6896934,224,77)
{
Left=125
Top=2
Width=615
Text=""
}
Add(StrList,1151140,273,133)
{
}
Add(ArrayEnum,9673017,287,182)
{
link(onItem,16470224:doAdd,[(330,188)(330,153)])
link(onEndEnum,3891663:doEvent1,[])
link(Array,1151140:Array,[])
}
Add(StrCat,6227129,462,196)
{
link(onStrCat,3559153:doAdd,[])
link(Str1,9089307:Var3,[(468,117)])
}
Add(GetDataEx,9089307,224,112)
{
link(Data,6896934:Text,[])
}
Add(Browse,4160889,147,126)
{
NewStyle=0
link(onBrowse,10449811:doEvent1,[])
}
Add(Hub,10449811,189,126)
{
link(onEvent1,6896934:doText,[(213,132)(213,83)])
link(onEvent2,11263694:doSearch,[])
}
Add(StrCat,11903282,420,196)
{
Str1="\"
link(onStrCat,6227129:doStrCat,[])
}

карма: 4

0