DRc писал(а):
Да, я имел в виду поиск в списке всех строк.Разницу улавливаешь ?
И тут без ArrayEnum или For (перебор всех строк списка) никак.
------------ Дoбавленo в 10.52:
Выше я привёл пример с использованием ArrayEnum, а это пример на For
Add(MainForm,10835224,273,294)
{
Width=563
}
Add(StrList,11935250,483,175)
{
Strings=#3:123|3:234|3:345|3:123|6:234234|3:234|4:7564|3:123|3:123|3:124|5:45645|3:678|5:45645|3:123|
Point(doGetString)
Point(onGetString)
link(onGetString,14401021:doCompare,[])
}
Add(Edit,5998970,546,133)
{
Left=10
Top=10
Width=150
Text="123"
}
Add(Button,1898356,329,294)
{
Left=10
Top=35
Caption="Search"
Data=Integer(0)
link(onClick,7212239:doEvent1,[])
}
Add(Memo,8927946,595,294)
{
Left=185
Top=10
Height=230
}
Add(If_else,14401021,539,182)
{
link(onTrue,8927946:doAdd,[(583,188)(583,300)])
link(Op2,5998970:Text,[])
}
Add(TimeCounter,8663686,413,301)
{
link(onStart,5974393:doFor,[(464,307)(464,258)])
link(onStop,10799305:doText,[])
}
Add(Label,10799305,476,308)
{
Left=72
Top=37
}
Add(Hub,7212239,378,294)
{
link(onEvent1,8927946:doClear,[(584,300)(584,307)])
link(onEvent2,8663686:doStart,[])
}
Add(For,5974393,483,252)
{
IncludeEnd=1
link(onEvent,11935250:doGetString,[(528,258)(528,243)(457,243)(457,223)])
link(onStop,8663686:doStop,[(525,265)(525,350)(401,350)(401,314)])
link(End,11935250:Count,[])
}