Вверх ↑
Разработчик
Ответов: 26304
Рейтинг: 2146
#1: 2009-01-22 18:16:25 ЛС | профиль | цитата
Леонид, ты мою вторую схему смотрел Так вот у тебя -- баян, спешу тебя заверить

------------ Дoбавленo:


Специально для Леонида. Вот моя схема с убранными прибамбасами. Объясни, чем твой принцип отличается от моего


Add(MainForm,6380058,301,231)
{
Width=801
Height=430
link(onCreate,4936505:doEvent1,[])
}
Add(ComboBox,2512629,483,217)
{
Left=5
Top=25
Width=740
Height=21
FileName="Zakaz4ik.txt"
Text="Действия"
DataType=1
Point(EditText)
Point(onKeyDown)
Point(doEditText)
Point(doSelect)
link(Str,3926536:Var3,[(489,205)(520,205)(520,296)])
link(onKeyDown,13155802:doCase,[])
}
Add(StringTable,7109463,637,343)
{
Left=5
Top=110
Width=325
Columns=#9:Запись=50|
Point(doEnsureVisible)
}
Add(Hub,5867691,588,238)
{
OutCount=4
link(onEvent1,2512629:doAdd,[(629,244)(629,193)(471,193)(471,223)])
link(onEvent3,2512629:doSave,[(621,258)(621,301)(461,301)(461,258)])
}
Add(GetDataEx,3926536,490,287)
{
link(Data,2512629:EditText,[])
}
Add(Case,13155802,539,231)
{
Value=Integer(13)
DataOnTrue=String()
link(onTrue,5867691:doEvent1,[])
}
Add(DoData,15466807,413,266)
{
Data=Integer(-1)
}
Add(Hub,4936505,364,245)
{
OutCount=3
link(onEvent1,2512629:doLoad,[])
}
Add(ArrayEnum,1821144,483,371)
{
link(onItem,13441470:doWork2,[(548,377)(548,349)])
link(onEndEnum,5218194:doWork2,[])
}
Add(DoData,1423958,497,322)
{
link(onEventData,5206108:doEvent1,[])
}
Add(HubEx,13441470,581,336)
{
link(onEvent,7109463:doAdd,[])
}
Add(Hub,5206108,546,322)
{
link(onEvent1,13441470:doWork1,[(585,328)])
link(onEvent2,5218194:doWork1,[(571,335)])
}
Add(Math,4180857,581,378)
{
OpType=1
Op2=1
ResultType=0
link(onResult,7109463:doEnsureVisible,[])
link(Op1,7109463:Count,[(587,366)(615,366)(615,400)(643,400)])
}
Add(HubEx,5218194,567,371)
{
link(onEvent,4180857:doOperation,[])
}

Кстати, последняя редакция моего поста со схемами -- 13:22. Если ты не видел второй схемы, то с выводами ты жутко опоздал

карма: 22

0