Str_Enum не разобрался

Вверх ↑

Форумы Помощь по пакетуStr_Enum не разобрался ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 16884

Рейтинг: 1239

#16: 2012-07-25 10:48:46 ЛС | профиль | цитата

mmmmm писал(а):

Просил Str_Enum дать мне третью строчку

так он вроде с StrList-а и просил.

карма: 25

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

Разработчик

Ответов: 26170

Рейтинг: 2127

#17: 2012-07-25 11:23:41 ЛС | профиль | цитата

Tad писал(а):

так он вроде с StrList-а и просил

Упс! Тады -- Ой!

карма: 22

Ответов: 1536

Рейтинг: 176

#18: 2012-07-25 12:18:46 ЛС | профиль | цитата

mmmmm, а, вот так, разве не проще?


Add(Button,3533827,329,133)
{
 Left=305
 Top=210
 Data=Integer(2)
 link(onClick,12819271:doGetString,[])
}
Add(StrList,12819271,392,91)
{
 Strings=#6:111111|5:22222|7:3333333|5:44444|5:55555|7:6666666|8:77777777|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,13696256:doText,[])
}
Add(Edit,13696256,448,98)
{
 Left=265
 Top=180
 Width=155
}

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 305

Рейтинг: 4

#19: 2012-07-25 12:48:01 ЛС | профиль | цитата

Tad, раньше использовал ArrayRW., но он с русскими символами не дружит. Да и подсчёт строк идет от нуля, что не удобно связывать со счётчиком например

"ser_davkin" писал(а):

mmmmm, а, вот так, разве не проще?

Я не только StrList использую, но и Memo в этихц целей
------------ Дoбавленo в 12.47:

Tad писал(а):

mmmmm, что с Edit-ом делал ?

А что с ним?

карма: 0

Гость

Ответов: 17029

Рейтинг: 0

#20: 2012-07-25 14:57:15 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2025-01-11 13:37:11

карма: 0

Ответов: 1173

Рейтинг: 49

#21: 2012-07-25 15:02:21 ЛС | профиль | цитата

mmmmm писал(а):

подсчёт строк идет от нуля, что не удобно связывать со счётчиком

А что там неудобного?

mmmmm писал(а):

с русскими символами не дружит

Эта проблема решается, кажется, сменой системного языка на русский.

карма: 0

Ответов: 305

Рейтинг: 4

#22: 2012-07-25 15:17:13 ЛС | профиль | цитата

Ex_ писал(а):

А что там неудобного?

code_28587.txt

Ex_ писал(а):

Эта проблема решается, кажется, сменой системного языка на русский.

Не мне то проще использовать более удобный компонент

А если у пользователя тоже системный англ?

карма: 0

файлы: 1

code_28587.txt [2.1KB] [118]

Ответов: 1173

Рейтинг: 49

#23: 2012-07-25 15:31:05 ЛС | профиль | цитата

mmmmm писал(а):

А если у пользователя тоже системный англ

Есть специальный компонент.
------------ Дoбавленo в 15.30:
mmmmm,


Add(MainForm,5209926,70,322)
{
 Width=230
 Height=174
 link(onCreate,6910537:doData,[])
}
Add(Button,1623239,322,182)
{
 Left=5
 Top=15
 Caption="Перебор"
 link(onClick,14838683:doNext,[])
}
Add(Button,657301,322,231)
{
 Left=5
 Top=45
 Caption="Стоп"
 Data=String(0)
 link(onClick,14838683:doReset,[(370,237)(370,202)])
}
Add(StrList,2616541,462,112)
{
 link(onChange,10892276:doData,[])
}
Add(Str_Enum,2819612,462,182)
{
 Delimiter="
"
 To=1
 Point(doFrom)
 Point(doTo)
 link(onEnum,1788663:doText,[])
 link(String,2616541:Text,[])
}
Add(Hub,4707331,427,182)
{
 OutCount=3
 link(onEvent1,2819612:doFrom,[(451,188)(451,202)])
 link(onEvent2,2819612:doTo,[(451,195)(451,209)])
 link(onEvent3,2819612:doEnum,[(451,202)(451,188)])
}
Add(Counter,14838683,385,182)
{
 Min=1
 Max=9999999
 Point(doValue)
 Point(doMax)
 link(onNext,4707331:doEvent1,[])
}
Add(Edit,1788663,511,182)
{
 Left=10
 Top=70
}
Add(DoData,10892276,511,112)
{
 link(onEventData,14838683:doMax,[(555,118)(555,167)(373,167)(373,216)])
 link(Data,2616541:Count,[(517,100)(496,100)(496,169)(475,169)])
}
Add(Button,7359978,364,469)
{
 Left=75
 Top=15
 Caption="Перебор"
 link(onClick,5282527:doNext,[])
}
Add(Button,10133706,315,518)
{
 Left=75
 Top=45
 Caption="Стоп"
 Data=String(0)
 link(onClick,15970225:doData,[])
}
Add(StrList,15967375,462,399)
{
 link(onChange,14887253:doCalc,[])
}
Add(Counter,5282527,427,469)
{
 Min=-1
 Max=9999999
 Default=-1
 Point(doValue)
 Point(doMax)
 link(onNext,7562425:doRead,[])
}
Add(Edit,8524715,525,469)
{
 Left=80
 Top=70
}
Add(DoData,6910537,119,336)
{
 link(onEventData,1752744:doEvent1,[])
 link(Data,16216456:Text,[])
}
Add(StrList,16216456,119,280)
{
 Strings=#4:1111|4:2222|4:3333|
}
Add(Hub,1752744,175,336)
{
 link(onEvent1,2616541:doAdd,[(253,342)(253,118)])
 link(onEvent2,15967375:doText,[(325,349)(325,426)])
}
Add(ArrayRW,7562425,476,469)
{
 link(onRead,8524715:doText,[])
 link(Array,15967375:Array,[])
}
Add(MathParse,14887253,518,399)
{
 DataCount=1
 MathStr="%1 - 1"
 link(onResult,5282527:doMax,[(568,405)(568,548)(412,548)(412,503)])
 link(X1,15967375:Count,[(524,387)(500,387)(500,456)(475,456)])
}
Add(DoData,15970225,364,518)
{
 Data=String(-1)
 link(onEventData,5282527:doValue,[(406,524)(406,496)])
}

mmmmm, выше -- поправленная схема. Текст подаётся на точку для текста (а не строки), счётчик начинает считать с 0.

карма: 0

Форумы Помощь по пакетуStr_Enum не разобрался ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)