------------ Дoбавленo в 20.22:
Добрый вечер.
Еще один маленький вопросик....
В StrList содержаться несколько строк. Но некоторые из них пропущены....
1 строка
3 строка
6 строка
А мне надо сделать чтобы пустые строки заполнились записями
2 строка
4 строка
5 строка
И в итоге должно получиться
1 строка
2 строка
3 строка
4 строка
5 строка
6 строка
Заранее благодарю за ответ.
Add(MainForm,2953706,21,105)
{
Width=339
}
Add(Button,2492058,581,210)
{
Left=30
Top=230
Width=270
Caption="Старт"
link(onClick,208586:doAdd,[])
}
Add(RichEdit,208586,700,210)
{
Left=15
Top=15
Width=300
Height=200
link(Str,14444386:Text,[(706,162)(699,162)])
}
Add(StrList,14444386,693,70)
{
Strings=#8:1 строка|0:|8:3 строка|0:|0:|8:6 строка|
}
------------ Дoбавленo в 21.27:
Все, разобрался....Получилось вот так....Строки конечно не нумеруются, но мне и так подойдет...
Add(MainForm,5608816,350,147)
{
Width=339
}
Add(Button,2492058,532,266)
{
Left=30
Top=230
Width=270
Caption="Старт"
link(onClick,7467185:doEnum,[(604,272)(604,258)])
}
Add(RichEdit,208586,896,252)
{
Left=15
Top=15
Width=300
Height=200
}
Add(StrList,14444386,644,126)
{
Strings=#8:1 строка|0:|8:3 строка|0:|0:|8:6 строка|
}
Add(ArrayEnum,7467185,644,252)
{
link(onItem,9842013:doCompare,[])
link(Array,14444386:Array,[(650,212)(664,212)])
}
Add(If_else,9842013,714,252)
{
link(onTrue,3522891:doStrCat,[(765,258)(765,146)])
link(onFalse,14496690:doEvent2,[])
}
Add(StrCat,3522891,784,140)
{
Str2="строка"
link(onStrCat,14496690:doEvent1,[(835,146)(835,258)])
}
Add(Hub,14496690,854,252)
{
InCount=2
OutCount=1
link(onEvent1,208586:doAdd,[])
}