Add(MainForm,15480528,63,154)
{
Width=489
Height=247
Point(onClose)
link(onCreate,6261230:doOpen,[])
link(onClose,6261230:doClose,[])
}
Add(ListBox,16705157,203,105)
{
Left=15
Top=15
Width=135
Height=165
Strings=#2:15|2:16|2:17|2:18|2:19|
}
Add(ListBox,14871117,343,112)
{
Left=170
Top=15
Width=135
Height=165
Strings=#2:48|2:45|2:15|2:12|2:13|2:16|0:|
}
Add(ArrayEnum,15958383,217,168)
{
link(onItem,6238122:doString,[])
link(onEndEnum,15063023:doEnum,[(256,181)(256,209)])
link(Array,16705157:Array,[])
}
Add(DS_SQLite,6261230,112,168)
{
Name="mydb"
FileName=":memory:"
link(onOpen,15493153:doExec,[])
}
Add(DSC_Exec,15493153,161,168)
{
SQL="CREATE TABLE [a]([col1] INTEGER);\r\nCREATE TABLE [b]([col1] INTEGER);\r\n"
DSManager="mydb"
link(onExec,15958383:doEnum,[])
}
Add(DSC_Exec,12649347,315,168)
{
DSManager="mydb"
}
Add(FormatStr,6238122,266,168)
{
Mask="INSERT INTO [a]([col1]) VALUES(%1);"
link(onFString,12649347:doExec,[])
}
Add(ArrayEnum,15063023,357,203)
{
link(onItem,207147:doString,[])
link(onEndEnum,14757544:doQuery,[(396,216)(396,251)])
link(Array,14871117:Array,[])
}
Add(DSC_Exec,14188723,455,203)
{
DSManager="mydb"
}
Add(FormatStr,207147,406,203)
{
Mask="INSERT INTO [b]([col1]) VALUES(%1);"
link(onFString,14188723:doExec,[])
}
Add(DSC_Query,14757544,406,245)
{
SQL="select col1 from b where col1 NOT IN (select col1 from a) ;"
DSManager="mydb"
link(onQuery,8105160:doAdd,[])
}
Add(ListBox,8105160,455,245)
{
Left=325
Top=15
Width=135
Height=165
}
Ответов: 932
Рейтинг: 197
|
|||
А можно и сложней. Если списки будут содержать большое количество чисел для сравнения (1000000 и более)
|
|||
карма: 19 |
|