Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2008-07-20 17:38:58 ЛС | профиль | цитата
Dilma писал(а):
удалить из строки при переносе из ListBox в Memo последние два символа
А если в ListBox "Война и мир" ?
И помоему у нас именно в Memo после doClear остается "/n/r"

Add(Memo,5438726,91,119)
{
Left=95
Top=10
Height=190
Strings=#1:1|1:2|1:3|1:4|1:5|
}
Add(ListBox,16153144,273,126)
{
Left=205
Top=10
Height=190
}
Add(DoData,952599,91,175)
{
link(onEventData,3888991:doEvent1,[])
link(Data,5438726:Text,[])
}
Add(Button,881635,49,175)
{
Left=150
Top=15
Caption="">""
link(onClick,952599:doData,[])
}
Add(DoData,8706008,270,204)
{
link(onEventData,14487924:doEvent1,[(308,210)(308,209)])
link(Data,6858284:Var2,[(276,196)(279,196)])
}
Add(Button,4190379,217,203)
{
Left=150
Top=45
Caption=""<""
link(onClick,8706008:doData,[(259,209)(259,210)])
}
Add(Hub,3888991,140,175)
{
link(onEvent1,16153144:doText,[(222,181)(222,153)])
link(onEvent2,5438726:doClear,[(181,188)(181,104)(83,104)(83,132)])
}
Add(Hub,14487924,315,203)
{
link(onEvent1,5438726:doText,[(362,209)(362,74)(79,74)(79,146)])
link(onEvent2,16153144:doClear,[(353,216)(353,190)(261,190)(261,139)])
}
Add(Button,11665346,-7,252)
{
Left=20
Top=10
link(onClick,13789306:doEvent1,[])
}
Add(Label,2680240,105,238)
{
Left=105
Top=220
link(Text,5438726:Count,[(111,201)(104,201)])
}
Add(Label,8705943,280,266)
{
Left=210
Top=220
link(Text,16153144:Count,[])
}
Add(GetDataEx,6858284,266,175)
{
link(Data,16153144:Text,[])
}
Add(Hub,13789306,35,252)
{
link(onEvent1,2680240:doText,[(86,258)(86,244)])
link(onEvent2,8705943:doText,[(173,265)(173,272)])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0