Вверх ↑
Ответов: 758
Рейтинг: 112
#1: 2010-10-21 18:20:27 ЛС | профиль | цитата
Выложу одно нестандартное решение

Add(MainForm,2953706,105,77)
{
Width=485
Height=335
link(onCreate,853855:doOpen,[])
}
Add(Button,11936985,84,203)
{
Left=5
Top=5
Width=465
Caption="Go!!"
link(onClick,8575711:doEvent1,[])
}
Add(Memo,601688,175,147)
{
Left=10
Top=30
Width=150
Height=260
Strings=#15:аб999401-999555|8:аб999557|15:аб999559-999900|15:аб999910-999950|8:пх999401|8:пх999403|
}
Add(Memo,5156536,224,147)
{
Left=170
Top=30
Width=150
Height=260
Strings=#8:аб999558|8:пх999402|8:аб999556|15:аб999901-999909|15:пх999405-999418|8:пх999404|
}
Add(Memo,12539145,280,329)
{
Left=330
Top=30
Width=140
Height=260
}
Add(ArrayEnum,9141762,189,203)
{
link(onItem,11465546:doWork2,[])
link(Array,601688:Array,[])
}
Add(ArrayEnum,2794112,238,210)
{
link(onItem,11465546:doWork3,[(277,216)])
link(Array,5156536:Array,[])
}
Add(HubEx,11465546,273,203)
{
link(onEvent,325262:doEvent1,[])
}
Add(Hub,8575711,133,203)
{
OutCount=3
link(onEvent1,9141762:doEnum,[])
link(onEvent2,2794112:doEnum,[])
link(onEvent3,7073889:doQuery,[(152,223)(152,335)])
}
Add(Copy,2003707,329,203)
{
Position=1
Count=2
link(onCopy,15926820:doValue,[])
}
Add(Hub,325262,294,203)
{
OutCount=3
link(onEvent1,2003707:doCopy,[])
link(onEvent2,10350466:doDelete,[(318,216)(318,244)])
link(onEvent3,9733083:doString,[(315,223)(315,293)])
}
Add(Delete,10350466,329,238)
{
Count=2
link(onDelete,4511975:doSplit,[])
}
Add(Message,6614521,280,98)
{
}
Add(DS_SQLite,853855,168,91)
{
@Color=43520
Name="memory"
FileName=":memory:"
WaitClose=0
link(onOpen,3154482:doExec,[])
}
Add(DSC_Exec,3154482,224,91)
{
@Color=43520
SQL="CREATE TABLE [tab] (\r\n name TEXT, \r\n b INTEGER,\r\n e INTEGER);"
DSManager="memory"
link(onError,6614521:doMessage,[])
}
Add(Memory,15926820,462,203)
{
}
Add(DSC_Exec,4711697,511,287)
{
@Color=43520
DSManager="memory"
link(onError,3363879:doMessage,[])
}
Add(FormatStr,9733083,462,287)
{
DataCount=3
Mask="INSERT INTO tab VALUES ('%1', '%2','%3');"
link(onFString,4711697:doExec,[])
link(Str1,15926820:Value,[])
link(Str2,2939926:Value,[])
link(Str3,14968067:Value,[(482,279)(524,279)])
}
Add(DSC_Query,7073889,168,329)
{
@Color=43520
SQL="SELECT name, min(b), max(e) FROM tab GROUP BY name "
DSManager="memory"
link(onQuery,9370596:doString,[])
link(onError,6955627:doMessage,[(212,349)(212,384)])
}
Add(FormatStr,9370596,224,329)
{
DataCount=3
Mask="%1%2-%3"
link(onFString,12539145:doAdd,[])
}
Add(Message,3363879,560,294)
{
}
Add(Message,6955627,224,378)
{
}
Add(StrPart,4511975,378,238)
{
Char="-"
DirectEvent=0
Point(onNotFound)
link(onSplit,6594052:doWork2,[])
link(onPart,8053579:doWork2,[])
link(onNotFound,14279325:doEvent1,[])
}
Add(Memory,14968067,518,238)
{
Default=Integer(-1)
}
Add(Memory,2939926,469,245)
{
Default=Integer(-1)
}
Add(Hub,14279325,420,252)
{
link(onEvent1,6594052:doWork3,[(445,258)])
link(onEvent2,8053579:doWork3,[(452,265)])
}
Add(HubEx,6594052,441,238)
{
link(onEvent,14968067:doValue,[])
}
Add(HubEx,8053579,448,245)
{
link(onEvent,2939926:doValue,[])
}

карма: 1

2
Голосовали:ser_davkin, Tad