Вверх ↑
Ответов: 758
Рейтинг: 112
#1: 2018-03-03 23:52:25 ЛС | профиль | цитата
Леонид, Проверьте на тех же файлах
Add(MainForm,2953706,420,420)
{
Point(onClose)
link(onCreate,14931663:doOpen,[])
link(onClose,14931663:doClose,[])
}
Add(ListBox,1966354,238,140)
{
Left=5
Top=30
Width=85
Height=120
Strings=#9:1Кстр.txt|10:20Кстр.txt|10:50Кстр.txt|11:100Кстр.txt|11:200Кстр.txt|11:500Кстр.txt|9:1Мстр.txt|9:2Мстр.txt|9:4Мстр.txt|
DataType=1
link(onClick,15682436:doStrCat,[])
}
Add(StrCat,15682436,287,147)
{
link(onStrCat,6545833:doValue,[])
link(Str1,133349:CurrentDir,[])
}
Add(MemFifo,6545833,329,147)
{
link(onData,15391033:doString,[])
}
Add(FormatStr,15391033,385,147)
{
link(onFString,16460589:doText,[])
link(Str1,1438867:Var3,[(391,138)(377,138)(377,194)])
link(Str2,8885844:Var1,[(398,131)(370,131)])
}
Add(Edit,16460589,434,147)
{
Left=5
Top=5
Width=380
}
Add(Button,9617827,91,238)
{
Left=105
Top=60
link(onClick,14083436:doEvent1,[])
}
Add(StrList,7122459,196,210)
{
link(FileName,1438867:Var1,[(209,194)])
}
Add(StrList,12071239,357,224)
{
link(FileName,8885844:Var2,[])
}
Add(GetDataEx,1438867,329,189)
{
link(Data,6545833:Value1,[])
}
Add(GetDataEx,8885844,364,182)
{
Angle=3
link(Data,6545833:Value2,[(342,187)])
}
Add(Hub,14083436,140,238)
{
OutCount=8
link(onEvent1,7122459:doLoad,[])
link(onEvent3,12071239:doLoad,[])
link(onEvent4,8693979:doStart,[(186,265)(186,419)])
link(onEvent5,3833996:doEnum,[])
link(onEvent6,7508669:doEnum,[(200,279)(200,307)])
link(onEvent7,13045864:doQuery,[(193,286)(193,370)])
link(onEvent8,8693979:doStop,[(179,293)(179,426)])
}
Add(ArrayEnum,3833996,210,266)
{
link(onItem,6489984:doString,[])
link(Array,7122459:Array,[])
}
Add(TimeCounter,8693979,322,413)
{
link(onStop,15678087:doString,[])
}
Add(FormatStr,15678087,371,420)
{
Mask="Найдено %1 совпадений за %2 мсек"
link(onFString,2953706:doCaption,[])
link(Str1,16717458:Value,[])
}
Add(Dir,133349,287,98)
{
}
Add(DS_SQLite,14931663,469,434)
{
@Color=5635925
Name="DB"
FileName=":memory:"
link(onOpen,9656551:doExec,[])
}
Add(DSC_Exec,9656551,525,434)
{
@Color=5635925
SQL="CREATE TABLE hashtub([hash] TEXT);"
DSManager="DB"
}
Add(DSC_Exec,733540,308,266)
{
@Color=5635925
DSManager="DB"
}
Add(FormatStr,6489984,259,266)
{
DataCount=1
Mask="INSERT INTO hashtub values('%1');"
link(onFString,733540:doExec,[])
}
Add(ArrayEnum,7508669,371,301)
{
link(onItem,12304374:doString,[])
link(Array,12071239:Array,[])
}
Add(DSC_Exec,8307403,469,301)
{
@Color=5635925
DSManager="DB"
}
Add(FormatStr,12304374,420,301)
{
DataCount=1
Mask="INSERT INTO hashtub values('%1');"
link(onFString,8307403:doExec,[])
}
Add(Memory,16717458,371,364)
{
}
Add(DSC_Query,13045864,322,364)
{
@Color=5635925
SQL="SELECT count(*) FROM (SELECT `hash` FROM `hashtub` GROUP BY 1 HAVING count(*)>1);"
DSManager="DB"
link(onQuery,16717458:doValue,[])
}
карма: 1

0
Редактировалось 1 раз(а), последний 2018-03-03 23:53:04