Вверх ↑
Ответов: 199
Рейтинг: 7
#1: 2008-11-20 17:12:20 ЛС | профиль | цитата
Вот я делал програмку уже не помню для чего, но помню принцип работы, что в список одинаковые строки не добавляются
Add(MainForm,9277451,21,105){
Left=20
Top=105
Width=376
Height=506
}
Add(ListBox,15712835,441,217)
{
Left=5
Top=5
Width=300
Height=435
Ctl3D=1
Point(Index)
Point(doSelectString)
}
Add(Button,9092958,112,252)
{
Left=310
Top=35
Caption="Save list"
link(onClick,6914652:doExecute,[])
}
Add(ClipboardHook,6125290,168,91)
{
link(onChange,12359669:doEvent1,[(303,97)(303,181)])
}
Add(SDialog,6914652,168,252)
{
link(onExecute,15712835:doSave,[])
}
Add(LedNumber,211227,497,322)
{
Left=5
Top=445
Width=295
Text="0"
Point(doText)
}
Add(DoData,3528375,448,322)
{
Data=Real(0)
link(onEventData,211227:doText,[])
link(Data,15712835:Count,[])
}
Add(Hub,12359669,315,175)
{
OutCount=4
link(onEvent1,12758903:doEnum,[(373,181)(373,118)])
link(onEvent2,3528375:doData,[(433,188)(433,328)])
link(onEvent3,4493101:doValue,[(403,195)(403,83)])
link(onEvent4,15527629:doCompare,[(436,202)(436,160)])
}
Add(Button,16617521,112,308)
{
Left=310
Top=10
Caption="Удалить"
link(onClick,4748145:doData,[])
}
Add(DoData,4748145,364,308)
{
link(onEventData,15712835:doDelete,[(421,314)(426,314)(426,237)])
link(Data,15712835:Index,[(370,285)(468,285)])
}
Add(ArrayEnum,12758903,427,112)
{
link(Array,15712835:Array,[(433,100)(447,100)(447,281)(461,281)])
}
Add(DoData,3130029,574,161)
{
link(onEventData,15712835:doAdd,[(618,167)(618,195)(429,195)(429,223)])
link(Data,10811437:Value,[])
}
Add(Memory,4493101,511,77)
{
link(onData,10811437:doValue,[])
}
Add(Memory,10811437,574,77)
{
}
Add(If_else,15527629,518,154)
{
Op1=String()
Op2=String()
link(onFalse,3130029:doData,[])
link(Op1,12758903:Item,[(524,148)(433,148)])
link(Op2,4493101:Value,[(531,146)(517,146)])
}
карма: 0

0