Угадай слова

Форумы Помощь по пакетуУгадай слова ← Ctrl12 3Ctrl →

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

Ответов: 10

Рейтинг: 0

#1: 2016-08-13 23:09:35 ЛС | профиль | цитата

приветствую форумчане. есть желание создать небольшую программку для угадывания слов. слова загадываются наподобие телепередачи "Поле чудес". Графическую часть будущей программы создал. Проблемы с "начинкой".
Условия работы программы:
- нет определенной буквы: из списка убираются слова, содержащую эту букву.
- в поле ввода при введении буквы в маску слова в определенном месте: в списке должны остаться слова, содержащие эту букву определенном месте.
к сожалению сам файл не могу выложить.Вот сам код:

Add(SimpleForm,2953706,35,462)
{
 Width=549
 Height=443
 Ctl3D=0
 Name="Программа"
 Caption="Программа"
 BorderStyle=4
 DragForm=0
}
Add(Button,12084442,42,77)
{
 Left=220
 Top=45
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="А"
 Caption="А"
 link(onClick,14073846:doChangeValue,[])
}
Add(Edit,5384108,1124,165)
{
 Left=10
 Top=50
 Width=200
 Height=45
 Font=[Arial,18,1,0,204]
 Text="*********"
 MaxLenField=9
}
Add(LED,14073846,98,77)
{
 Left=265
 Top=45
 ColorOff=12632256
 link(onChange,8148608:doWork2,[])
}
Add(Button,5452193,238,77)
{
 Left=305
 Top=45
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Б"
 Caption="Б"
 link(onClick,3899493:doChangeValue,[])
}
Add(LED,3899493,294,77)
{
 Left=350
 Top=45
 ColorOff=12632256
 link(onChange,10034443:doWork2,[])
}
Add(Button,13386768,812,77)
{
 Left=385
 Top=45
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="В"
 Caption="В"
 link(onClick,9536400:doChangeValue,[])
}
Add(LED,9536400,868,77)
{
 Left=430
 Top=45
 ColorOff=12632256
 link(onChange,9870191:doWork2,[(948,83)(948,90)])
}
Add(Button,2637956,602,77)
{
 Left=465
 Top=45
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Г"
 Caption="Г"
 link(onClick,4213472:doChangeValue,[])
}
Add(LED,4213472,665,77)
{
 Left=510
 Top=45
 ColorOff=12632256
 link(onChange,11506057:doWork2,[])
}
Add(Button,10546078,434,77)
{
 Left=220
 Top=85
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Д"
 Caption="Д"
 link(onClick,6008125:doChangeValue,[])
}
Add(LED,6008125,490,77)
{
 Left=265
 Top=85
 ColorOff=12632256
 link(onChange,8789524:doWork2,[])
}
Add(Button,11351472,39,130)
{
 Left=305
 Top=85
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Е"
 Caption="Е"
 link(onClick,3292419:doChangeValue,[])
}
Add(LED,3292419,95,130)
{
 Left=350
 Top=85
 ColorOff=12632256
 link(onChange,2256969:doWork2,[(135,136)(135,132)])
}
Add(Button,11435108,235,130)
{
 Left=385
 Top=85
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Ж"
 Caption="Ж"
 link(onClick,7884572:doChangeValue,[])
}
Add(LED,7884572,291,130)
{
 Left=430
 Top=85
 ColorOff=12632256
 link(onChange,6844547:doWork2,[(351,136)(351,139)])
}
Add(Button,1681881,809,130)
{
 Left=465
 Top=85
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="З"
 Caption="З"
 link(onClick,5779773:doChangeValue,[])
}
Add(LED,5779773,865,130)
{
 Left=510
 Top=85
 ColorOff=12632256
 link(onChange,5162829:doWork2,[(946,136)(946,139)])
}
Add(Button,8941237,599,130)
{
 Left=220
 Top=125
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="И"
 Caption="И"
 link(onClick,1289377:doChangeValue,[])
}
Add(LED,1289377,662,130)
{
 Left=265
 Top=125
 ColorOff=12632256
 link(onChange,15824135:doWork2,[(726,136)(726,132)])
}
Add(Button,14837537,431,130)
{
 Left=305
 Top=125
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Й"
 Caption="Й"
 link(onClick,144408:doChangeValue,[])
}
Add(LED,144408,487,130)
{
 Left=350
 Top=125
 ColorOff=12632256
 link(onChange,14868279:doWork2,[(540,136)(540,139)])
}
Add(Button,9162540,39,186)
{
 Left=385
 Top=125
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="К"
 Caption="К"
 link(onClick,8120805:doChangeValue,[])
}
Add(LED,8120805,95,186)
{
 Left=430
 Top=125
 ColorOff=12632256
 link(onChange,11121673:doWork2,[(135,192)(135,181)])
}
Add(Button,270374,235,186)
{
 Left=465
 Top=125
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Л"
 Caption="Л"
 link(onClick,1585824:doChangeValue,[])
}
Add(LED,1585824,291,186)
{
 Left=510
 Top=125
 ColorOff=12632256
 link(onChange,14027167:doWork2,[(351,192)(351,188)])
}
Add(Button,14315269,809,186)
{
 Left=220
 Top=165
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="М"
 Caption="М"
 link(onClick,1903892:doChangeValue,[])
}
Add(LED,1903892,865,186)
{
 Left=265
 Top=165
 ColorOff=12632256
 link(onChange,8336296:doWork2,[(946,192)(946,188)])
}
Add(Button,2728899,599,186)
{
 Left=305
 Top=165
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Н"
 Caption="Н"
 link(onClick,7972641:doChangeValue,[])
}
Add(LED,7972641,662,186)
{
 Left=350
 Top=165
 ColorOff=12632256
 link(onChange,4379747:doWork2,[(726,192)(726,188)])
}
Add(Button,4252093,431,186)
{
 Left=385
 Top=165
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="О"
 Caption="О"
 link(onClick,14804891:doChangeValue,[])
}
Add(LED,14804891,487,186)
{
 Left=430
 Top=165
 ColorOff=12632256
 link(onChange,15147177:doWork2,[(540,192)(540,195)])
}
Add(Button,4503828,39,235)
{
 Left=465
 Top=165
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="П"
 Caption="П"
 link(onClick,6939944:doChangeValue,[])
}
Add(LED,6939944,95,235)
{
 Left=510
 Top=165
 ColorOff=12632256
 link(onChange,7019075:doWork2,[(135,241)(135,244)])
}
Add(Button,8648975,235,235)
{
 Left=220
 Top=205
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Р"
 Caption="Р"
 link(onClick,10977829:doChangeValue,[])
}
Add(LED,10977829,291,235)
{
 Left=265
 Top=205
 ColorOff=12632256
 link(onChange,10709977:doWork2,[(351,241)(351,237)])
}
Add(Button,8338294,809,235)
{
 Left=305
 Top=205
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="С"
 Caption="С"
 link(onClick,11904384:doChangeValue,[])
}
Add(LED,11904384,865,235)
{
 Left=350
 Top=205
 ColorOff=12632256
 link(onChange,5060225:doWork2,[(946,241)(946,237)])
}
Add(Button,5013751,599,235)
{
 Left=385
 Top=205
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Т"
 Caption="Т"
 link(onClick,13093022:doChangeValue,[])
}
Add(LED,13093022,662,235)
{
 Left=430
 Top=205
 ColorOff=12632256
 link(onChange,13297314:doWork2,[(726,241)(726,237)])
}
Add(Button,10516100,431,235)
{
 Left=465
 Top=205
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="У"
 Caption="У"
 link(onClick,1954358:doChangeValue,[])
}
Add(LED,1954358,487,235)
{
 Left=510
 Top=205
 ColorOff=12632256
 link(onChange,15983288:doWork2,[(540,241)(540,244)])
}
Add(Button,7158706,39,291)
{
 Left=220
 Top=245
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Ф"
 Caption="Ф"
 link(onClick,6780466:doChangeValue,[])
}
Add(LED,6780466,95,291)
{
 Left=265
 Top=245
 ColorOff=12632256
 link(onChange,9117318:doWork2,[(135,297)(135,293)])
}
Add(Button,4375066,235,291)
{
 Left=305
 Top=245
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Х"
 Caption="Х"
 link(onClick,13865620:doChangeValue,[])
}
Add(LED,13865620,291,291)
{
 Left=350
 Top=245
 ColorOff=12632256
 link(onChange,2094421:doWork2,[(351,297)(351,300)])
}
Add(Button,8330682,809,291)
{
 Left=385
 Top=245
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Ц"
 Caption="Ц"
 link(onClick,7553358:doChangeValue,[])
}
Add(LED,7553358,865,291)
{
 Left=430
 Top=245
 ColorOff=12632256
 link(onChange,6098467:doWork2,[(946,297)(946,293)])
}
Add(Button,7691860,599,291)
{
 Left=465
 Top=245
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Ч"
 Caption="Ч"
 link(onClick,1152808:doChangeValue,[])
}
Add(LED,1152808,662,291)
{
 Left=510
 Top=245
 ColorOff=12632256
 link(onChange,5840159:doWork2,[(726,297)(726,300)])
}
Add(Button,1034701,431,291)
{
 Left=220
 Top=285
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Ш"
 Caption="Ш"
 link(onClick,7882653:doChangeValue,[])
}
Add(LED,7882653,487,291)
{
 Left=265
 Top=285
 ColorOff=12632256
 link(onChange,16671524:doWork2,[(540,297)(540,300)])
}
Add(Button,10915727,39,347)
{
 Left=305
 Top=285
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Щ"
 Caption="Щ"
 link(onClick,2008509:doChangeValue,[])
}
Add(LED,2008509,95,347)
{
 Left=350
 Top=285
 ColorOff=12632256
 link(onChange,4127943:doWork2,[(135,353)(135,349)])
}
Add(Button,14568679,235,347)
{
 Left=385
 Top=285
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Ъ"
 Caption="Ъ"
 link(onClick,12827147:doChangeValue,[])
}
Add(LED,12827147,291,347)
{
 Left=430
 Top=285
 ColorOff=12632256
 link(onChange,13386076:doWork2,[(351,353)(351,356)])
}
Add(Button,15858278,809,347)
{
 Left=465
 Top=285
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Ы"
 Caption="Ы"
 link(onClick,4547935:doChangeValue,[])
}
Add(LED,4547935,865,347)
{
 Left=510
 Top=285
 ColorOff=12632256
 link(onChange,13943618:doWork2,[(946,353)(946,349)])
}
Add(Button,14817858,599,347)
{
 Left=220
 Top=325
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Ь"
 Caption="Ь"
 link(onClick,7719109:doChangeValue,[])
}
Add(LED,7719109,662,347)
{
 Left=265
 Top=325
 ColorOff=12632256
 link(onChange,13403623:doWork2,[(726,353)(726,356)])
}
Add(Button,3096501,431,347)
{
 Left=305
 Top=325
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Э"
 Caption="Э"
 link(onClick,9267803:doChangeValue,[])
}
Add(LED,9267803,487,347)
{
 Left=350
 Top=325
 ColorOff=12632256
 link(onChange,3343348:doWork2,[(540,353)(540,349)])
}
Add(Button,7589685,39,417)
{
 Left=385
 Top=325
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Ю"
 Caption="Ю"
 link(onClick,6084760:doChangeValue,[])
}
Add(LED,6084760,95,417)
{
 Left=430
 Top=325
 ColorOff=12632256
 link(onChange,4127943:doWork3,[(147,423)])
}
Add(Button,4293180,235,417)
{
 Left=465
 Top=325
 Width=40
 Height=30
 Font=[Arial,14,1,0,0]
 Name="Я"
 Caption="Я"
 link(onClick,5441520:doChangeValue,[])
}
Add(LED,5441520,291,417)
{
 Left=510
 Top=325
 ColorOff=12632256
 link(onChange,13386076:doWork3,[(382,423)])
}
Add(Button,6668297,809,417)
{
 Left=220
 Top=380
 Height=30
 Font=[Arial,14,1,0,0]
 Name="резерв"
 Caption=""
 link(onClick,4403820:doChangeValue,[])
}
Add(LED,4403820,865,417)
{
 Left=280
 Top=380
 ColorOff=12632256
}
Add(Button,9387982,599,417)
{
 Left=320
 Top=380
 Height=30
 Font=[Arial,14,1,0,0]
 Name="резерв"
 Caption=""
 link(onClick,8874490:doChangeValue,[])
}
Add(LED,8874490,662,417)
{
 Left=380
 Top=380
 ColorOff=12632256
}
Add(Button,2806060,431,417)
{
 Left=415
 Top=380
 Height=30
 Font=[Arial,14,1,0,0]
 Name="резерв"
 Caption=""
 link(onClick,7080652:doChangeValue,[])
}
Add(LED,7080652,487,417)
{
 Left=475
 Top=380
 ColorOff=12632256
}
Add(Hub,4467316,1022,42)
{
 link(onEvent1,1121456:doEnum,[])
}
Add(HubEx,4127943,143,343)
{
 Angle=3
 link(onEvent,9117318:doWork3,[])
}
Add(HubEx,9117318,143,287)
{
 Angle=3
 link(onEvent,7019075:doWork3,[])
}
Add(HubEx,7019075,143,238)
{
 Angle=3
 link(onEvent,11121673:doWork3,[])
}
Add(HubEx,11121673,143,175)
{
 Angle=3
 link(onEvent,2256969:doWork3,[])
}
Add(HubEx,2256969,143,126)
{
 Angle=3
 link(onEvent,8148608:doWork3,[])
}
Add(HubEx,8148608,143,77)
{
 Angle=3
 link(onEvent,3326552:doWork2,[(147,48)])
}
Add(HubEx,3326552,378,42)
{
 link(onEvent,12619104:doWork2,[])
}
Add(HubEx,12619104,560,42)
{
 link(onEvent,12796848:doWork2,[])
}
Add(HubEx,12796848,756,42)
{
 link(onEvent,11804400:doWork2,[])
}
Add(HubEx,11804400,994,42)
{
 link(onEvent,4467316:doEvent1,[])
}
Add(HubEx,13386076,378,350)
{
 Angle=3
 link(onEvent,2094421:doWork3,[])
}
Add(HubEx,2094421,378,294)
{
 Angle=3
 link(onEvent,10709977:doWork3,[])
}
Add(HubEx,10709977,378,231)
{
 Angle=3
 link(onEvent,14027167:doWork3,[])
}
Add(HubEx,14027167,378,182)
{
 Angle=3
 link(onEvent,6844547:doWork3,[])
}
Add(HubEx,6844547,378,133)
{
 Angle=3
 link(onEvent,10034443:doWork3,[])
}
Add(HubEx,10034443,378,77)
{
 Angle=3
 link(onEvent,3326552:doWork3,[])
}
Add(HubEx,8789524,560,77)
{
 Angle=3
 link(onEvent,12619104:doWork3,[])
}
Add(HubEx,14868279,560,133)
{
 Angle=3
 link(onEvent,8789524:doWork3,[])
}
Add(HubEx,15147177,560,189)
{
 Angle=3
 link(onEvent,14868279:doWork3,[])
}
Add(HubEx,15983288,560,238)
{
 Angle=3
 link(onEvent,15147177:doWork3,[])
}
Add(HubEx,16671524,560,294)
{
 Angle=3
 link(onEvent,15983288:doWork3,[])
}
Add(HubEx,3343348,560,343)
{
 Angle=3
 link(onEvent,16671524:doWork3,[])
}
Add(HubEx,11506057,756,77)
{
 Angle=3
 link(onEvent,12796848:doWork3,[])
}
Add(HubEx,15824135,756,126)
{
 Angle=3
 link(onEvent,11506057:doWork3,[])
}
Add(HubEx,4379747,756,182)
{
 Angle=3
 link(onEvent,15824135:doWork3,[])
}
Add(HubEx,13297314,756,231)
{
 Angle=3
 link(onEvent,4379747:doWork3,[])
}
Add(HubEx,5840159,756,294)
{
 Angle=3
 link(onEvent,13297314:doWork3,[])
}
Add(HubEx,13403623,756,350)
{
 Angle=3
 link(onEvent,5840159:doWork3,[])
}
Add(HubEx,9870191,994,84)
{
 Angle=3
 link(onEvent,11804400:doWork3,[])
}
Add(HubEx,5162829,994,133)
{
 Angle=3
 link(onEvent,9870191:doWork3,[])
}
Add(HubEx,8336296,994,182)
{
 Angle=3
 link(onEvent,5162829:doWork3,[])
}
Add(HubEx,5060225,994,231)
{
 Angle=3
 link(onEvent,8336296:doWork3,[])
}
Add(HubEx,6098467,994,287)
{
 Angle=3
 link(onEvent,5060225:doWork3,[])
}
Add(HubEx,13943618,994,343)
{
 Angle=3
 link(onEvent,6098467:doWork3,[])
}
Add(Str_Enum,1121456,1099,42)
{
 Delimiter=""
 onBreakEnable=0
 link(onEnum,10606810:doSave,[(1155,48)(1155,71)])
}
Add(If_else,5292170,1120,245)
{
 Type=5
 Op2=String( )
}
Add(RichEdit,10606810,1178,37)
{
 Left=10
 Top=105
 Width=200
 Height=215
 Font=[Times New Roman,12,1,0,204]
 Strings=#8:АБАЗИНЕЦ|8:АБАЗИНКА|8:АББАТИСА|8:АБДРАГАН|8:АБДУКТОР|8:АБДУКЦИЯ|8:АБЕЛЬМОШ|8:АБЗЕТЦЕР|8:АБИССАЛЬ|8:АБОЛИЦИЯ|8:АБОРИГЕН|8:АБРАКСАС|8:АБРИКОЛЬ|8:АБРОКОМА|8:АБСОРБЕР|8:АБСТРАКТ|8:АБСЦИССА|8:АБУТИЛОН|8:АБЫРВАЛГ|8:АВАЛЬМАН|8:АВАНГАРД|8:АВАНЛОЖА|8:АВАНПОРТ|8:АВАНПОСТ|8:АВАНРЕЙД|8:АВАНТЮРА|8:АВАНФОСС|8:АВАРИЙКА|8:АВАРТАНА|8:АВГУСТАЛ|8:АВИАБАЗА|8:АВИАМАЯК|8:АВИАПАРК|8:АВИАПОЛК|8:АВИАРЕЙС|8:АВИАТИКА|8:АВИДИТЕТ|8:АВИОНИКА|8:АВИФАУНА|8:АВРИКУЛА|8:АВСТЕРИЯ|8:АВСТРИЕЦ|8:АВСТРИЯК|8:АВТАРКИЯ|8:АВТОБАЗА|8:АВТОГРАД|8:АВТОГРАФ|8:АВТОДЕЛО|8:АВТОДРОМ|8:АВТОКЛАВ|8:АВТОКЛУБ|8:АВТОКРАН|8:АВТОКРАТ|8:АВТОЛИСТ|8:АВТОМАКС|8:АВТОПАРК|8:АВТОПЛУГ|8:АВТОСАНИ|8:АВТОСТОП|8:АВТОТРОФ|8:АВТОХТОН|8:АВТОШАРЖ|8:АВЮТОРГА|8:АГАРИКУС|8:АГАРЯНИН|8:АГАРЯНКА|8:АГАСТРИЯ|8:АГЕВСТИЯ|8:АГЕНЕЗИЯ|8:АГЕНТУРА|8:АГЕРАТУМ|8:АГИТАТОР|8:АГИТАЦИЯ|8:АГЛОССИЯ|8:АГНОСТИК|8:АГОНОМАЛ|8:АГОРАНОМ|8:АГРАМАНТ|8:АГРАМЕНТ|8:АГРАРНИК|8:АГРЕССИЯ|8:АГРЕССОР|8:АГРОМЕТР|8:АГРОПРОМ|8:АГРОСЕТЬ|8:АГУКАНЬЕ|8:АДВЕКЦИЯ|8:АДГЕРЕНТ|8:АДДЕНДУМ|8:АДДИКЦИЯ|8:АДДУКТОР|8:АДДУКЦИЯ|8:АДЕНОЗИН|8:АДЕНОИДЫ|8:АДЖАСТЕР|8:АДЖИВИКА|8:АДЖИЛИТИ|8:АДИАБАТА|8:АДИАНТУМ|8:АДИНАМИЯ|8:АДИПОЗИТ|8:АДНЕКСИТ|8:АДОНИЗИД|8:АДОНИЛЕН|8:АДОНИТИС|8:АДОРАЦИЯ|8:АДОРНИСТ|8:АДРЕСАНТ|8:АДСОРБАТ|8:АДСОРБЕР|8:АДЪЮВАНТ|8:АДЪЮСТАЖ|8:АДЪЮТАНТ|8:АДЫГЕЙКА
 ScrollBars=2
 ReadOnly=0
 CanDragOle=1
 ParseLinks=0
}

карма: 1

Ответов: 497

Рейтинг: 16

#2: 2016-08-14 01:07:30 ЛС | профиль | цитата

nurik,

nurik писал(а):

в поле ввода при введении буквы в маску слова в определенном месте: в списке должны остаться слова, содержащие эту букву определенном месте.

только если заменить RichEdit на ListBox

Add(ArrayEnum,14823543,525,210)
{
 link(onItem,1761043:doCompare,[])
 link(onEndEnum,11540383:doEvent1,[(587,223)(587,259)(616,259)])
 link(Array,5272700:Array,[(531,195)(533,195)])
}
Add(StrMask,1761043,616,210)
{
 Point(doMask)
 link(onTrue,15318224:doAdd,[])
}
Add(Edit,5384108,689,106)
{
 Left=215
 Top=5
 Width=200
 Height=45
 Font=[Arial,18,1,0,204]
 Text="*********"
 MaxLenField=9
}
Add(StrList,15318224,756,217)
{
}
Add(ArrayEnum,4631743,770,294)
{
 link(onItem,5272700:doAdd,[(814,300)(814,220)(501,220)(501,141)])
 link(onEndEnum,15318224:doClear,[(814,307)(814,269)(744,269)(744,230)])
 link(Array,15318224:Array,[])
}
Add(Hub,11540383,616,252)
{
 link(onEvent1,5272700:doClear,[(642,258)(642,203)(501,203)(501,148)])
 link(onEvent2,4631743:doEnum,[(700,265)(700,300)])
}
Add(Button,14788099,385,203)
{
 Left=425
 Top=5
 Width=65
 Height=40
 link(onClick,2115753:doEvent1,[])
}
Add(Hub,2115753,455,203)
{
 link(onEvent1,9235014:doData,[(577,209)(577,160)])
 link(onEvent2,14823543:doEnum,[])
}
Add(DoData,9235014,686,154)
{
 link(onEventData,1761043:doMask,[(730,160)(730,188)(604,188)(604,223)])
 link(Data,5384108:Text,[(692,143)(695,143)])
}
Add(ListBox,5272700,513,135)
{
 Left=10
 Top=5
 Width=200
 Height=215
 Font=[Times New Roman,12,1,0,204]
 Ctl3D=1
 Strings=#8:АБАЗИНЕЦ|8:АБАЗИНКА|8:АББАТИСА|8:АБДРАГАН|8:АБДУКТОР|8:АБДУКЦИЯ|8:АБЕЛЬМОШ|8:АБЗЕТЦЕР|8:АБИССАЛЬ|8:АБОЛИЦИЯ|8:АБОРИГЕН|8:АБРАКСАС|8:АБРИКОЛЬ|8:АБРОКОМА|8:АБСОРБЕР|8:АБСТРАКТ|8:АБСЦИССА|8:АБУТИЛОН|8:АБЫРВАЛГ|8:АВАЛЬМАН|8:АВАНГАРД|8:АВАНЛОЖА|8:АВАНПОРТ|8:АВАНПОСТ|8:АВАНРЕЙД|8:АВАНТЮРА|8:АВАНФОСС|8:АВАРИЙКА|8:АВАРТАНА|8:АВГУСТАЛ|8:АВИАБАЗА|8:АВИАМАЯК|8:АВИАПАРК|8:АВИАПОЛК|8:АВИАРЕЙС|8:АВИАТИКА|8:АВИДИТЕТ|8:АВИОНИКА|8:АВИФАУНА|8:АВРИКУЛА|8:АВСТЕРИЯ|8:АВСТРИЕЦ|8:АВСТРИЯК|8:АВТАРКИЯ|8:АВТОБАЗА|8:АВТОГРАД|8:АВТОГРАФ|8:АВТОДЕЛО|8:АВТОДРОМ|8:АВТОКЛАВ|8:АВТОКЛУБ|8:АВТОКРАН|8:АВТОКРАТ|8:АВТОЛИСТ|8:АВТОМАКС|8:АВТОПАРК|8:АВТОПЛУГ|8:АВТОСАНИ|8:АВТОСТОП|8:АВТОТРОФ|8:АВТОХТОН|8:АВТОШАРЖ|8:АВЮТОРГА|8:АГАРИКУС|8:АГАРЯНИН|8:АГАРЯНКА|8:АГАСТРИЯ|8:АГЕВСТИЯ|8:АГЕНЕЗИЯ|8:АГЕНТУРА|8:АГЕРАТУМ|8:АГИТАТОР|8:АГИТАЦИЯ|8:АГЛОССИЯ|8:АГНОСТИК|8:АГОНОМАЛ|8:АГОРАНОМ|8:АГРАМАНТ|8:АГРАМЕНТ|8:АГРАРНИК|8:АГРЕССИЯ|8:АГРЕССОР|8:АГРОМЕТР|8:АГРОПРОМ|8:АГРОСЕТЬ|8:АГУКАНЬЕ|8:АДВЕКЦИЯ|8:АДГЕРЕНТ|8:АДДЕНДУМ|8:АДДИКЦИЯ|8:АДДУКТОР|8:АДДУКЦИЯ|8:АДЕНОЗИН|8:АДЕНОИДЫ|8:АДЖАСТЕР|8:АДЖИВИКА|8:АДЖИЛИТИ|8:АДИАБАТА|8:АДИАНТУМ|8:АДИНАМИЯ|8:АДИПОЗИТ|8:АДНЕКСИТ|8:АДОНИЗИД|8:АДОНИЛЕН|8:АДОНИТИС|8:АДОРАЦИЯ|8:АДОРНИСТ|8:АДРЕСАНТ|8:АДСОРБАТ|8:АДСОРБЕР|8:АДЪЮВАНТ|8:АДЪЮСТАЖ|8:АДЪЮТАНТ|8:АДЫГЕЙКА|
}

а первое я или не понял или они оба одно и тоже
------------ Дoбавленo в 01.00:
и если код большой то лучше его файлом выкладывать я ели все скопировал
------------ Дoбавленo в 01.07:
а смысл схемы вооообще не понятен

карма: 1

]

Ответов: 10

Рейтинг: 0

#3: 2016-08-14 06:03:12 ЛС | профиль | цитата

залить не получилось (видимо рейтинга не хватает).
смысл такой: есть 3 поля: 1) справа - буквы /при нажатии ненужной буквы она светится красным/; 2) список со словами - слева снизу; 3) поле ввода маски слова - слева вверху /кол-во букв в слове/.
чуть позже попробую картинки выложить того, что я задумал.

------------ Дoбавленo в 06.02:
вот выложил https://cloud.mail.ru/public/4MxV/KR2ubK8ry

карма: 1

Ответов: 16884

Рейтинг: 1239

#4: 2016-08-14 06:07:46 ЛС | профиль | цитата

RAWY_EX писал(а):

и если код большой то лучше его файлом выкладывать

То лучше его уменьшить.
code_37646.txt

Что-бы задавать меньше вопросов, можно:
1. Посмотреть здесь:

nurik_1.png

2. Выделить компонент и нажать F1
3. Зайти в Wiki
4. Использовать Поиск
и только потом Как ?-ать

Насчет

nurik писал(а):

к сожалению сам файл не могу выложить.

Над окном, где ты пишешь свою проблему, есть два пункта:

Куда залить файл?
Как скопировать и вставить схему?('63')

Будь читателем.

Писателей у нас - завались.
С тобой уже 12216

карма: 25

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

файлы: 2

code_37646.txt [1.2KB] [547], nurik_1.png [30.5KB] [685]

Ответов: 10

Рейтинг: 0

#5: 2016-08-14 06:47:29 ЛС | профиль | цитата

спасибо, сейчас гляну

карма: 1

Ответов: 16884

Рейтинг: 1239

#6: 2016-08-14 07:02:50 ЛС | профиль | цитата

Так более правильно.
code_37649.txt
или так

Add(VisualStrings,1954375,224,231)
{
 Lines=#32:АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ|
 Width=277
 Height=25
}
Add(Str_Enum,7131583,224,273)
{
 Delimiter=""
 link(onEnum,6598412:doWork1,[])
 link(String,1954375:Text,[])
}
Add(ChildPanel,6598412,280,273)
{
}
BEGIN_SDK
  Add(EditMulti,6150847,21,21)
  {
   EventCount=1
   WorkCount=1
   link(doWork1,8398577:##add,[(81,27)(81,83)])
  }
  Add(Panel,976568,35,105)
  {
   Left=205
   Top=10
   Width=160
   Height=320
  }
  Add(ChildPanelEx,8398577,140,77)
  {
   Mode=1
  }
  BEGIN_SDK
    Add(EditMultiEx,14750960,21,21)
    {
     WorkCount=#5:##add|
     EventCount=#8:onChange|
     VarCount=#7:##index|
     DataCount=#3:Str|
     Point(##add)
     Point(##index)
     link(##add,9015282:doCaption,[(63,27)(63,69)])
    }
    Add(Panel,16399254,63,126)
    {
     Width=40
     Height=40
     Font=[MS Sans Serif,8,1,0,1]
     Layout="parent.parent.grid"
     BorderWidth=0
     BevelInner=0
    }
    Add(LED,12644586,169,65)
    {
     Left=1
     Top=1
     Width=39
     Height=39
     Blick=1
     ColorOff=-16777201
     ColorBlick=-16777201
    }
    Add(Button,9015282,105,63)
    {
     Left=11
     Top=10
     Width=20
     Font=[MS Sans Serif,8,1,0,1]
     TabOrder=-1
     Caption=""
     Point(doCaption)
     link(onClick,12644586:doChangeValue,[(153,69)(153,71)])
    }
  END_SDK
END_SDK
Add(MainForm,2790490,133,259)
{
 Width=384
 Height=372
 Caption="Пример использования GridLayout в динамике"
 link(onCreate,7131583:doEnum,[])
}
Add(GridLayout,4496329,133,210)
{
 Name="grid"
 Rows=8
 Cols=4
}

карма: 25

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

файлы: 1 code_37649.txt [1.5KB] [666]

Ответов: 10

Рейтинг: 0

#7: 2016-08-14 07:33:06 ЛС | профиль | цитата

компактно получилось. я до этого б не додумался.

карма: 1

Ответов: 16884

Рейтинг: 1239

#8: 2016-08-14 07:53:45 ЛС | профиль | цитата

Потому, что думать не хотел.

nesco, кажется (крестился) в компоненте Replace не хватает выбора режима ReplaceAll, ReplaceSingle.
Или нужен отдельный компонент ReplaceSingle.

карма: 25

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

Голосовали:

nurik

Разработчик

Ответов: 26303

Рейтинг: 2146

#9: 2016-08-14 11:20:42 ЛС | профиль | цитата

Tad писал(а):

Или нужен отдельный компонент ReplaceSingle.

Напиши IC, посмотрим, как на деле работают эти звери -- ReplaceAll, ReplaceSingle. Я даже не представляю, для чего ни нужны.

карма: 22

Ответов: 9906

Рейтинг: 351

#10: 2016-08-14 11:42:37 ЛС | профиль | цитата

Вообще-то, в Replace уже заложена функциональность ReplaceSingle
Как, впрочем -- и ReplaceDouble

Через верхнюю точку Skip ...

карма: 9

Ответов: 10

Рейтинг: 0

#11: 2016-08-14 12:13:39 ЛС | профиль | цитата

и как тогда реализовать эти ReplaceAll, ReplaceSingle на моем примере ?

карма: 1

Ответов: 16884

Рейтинг: 1239

#12: 2016-08-14 12:25:57 ЛС | профиль | цитата

code_37651.txt

Вот это я не смог сделать на стандартных компонентах.

карма: 25

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

файлы: 1

code_37651.txt [6.2KB] [747]

Ответов: 10

Рейтинг: 0

#13: 2016-08-14 13:41:42 ЛС | профиль | цитата

выдает ошибку: Error: C:\Program Files\HiAsm\compiler\fpc\ppc386.exe returned an error exitcode (normal if you did not specifiy a source file to be compiled)

карма: 1

Ответов: 16884

Рейтинг: 1239

#14: 2016-08-14 14:09:57 ЛС | профиль | цитата

nurik писал(а):

выдает ошибку:

Кто выдает ? Какая схема?
А остальные схемы запускаются ?
Но скорее всего не разрешён полный доступ:
ПКМ на иконке HiAsm - Свойства - Безопасность - Изменить - Ворону на "Полный доступ" - Применить.

nurik_2.png

project235.rar

карма: 25

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

файлы: 2

nurik_2.png [18.1KB] [624], project235.rar [2.7KB] [387]

Ответов: 10

Рейтинг: 0

#15: 2016-08-15 07:52:30 ЛС | профиль | цитата

на домашнем компе стоит Windows XP sp2 . ошибку выдает после нажатия кнопки "Запустить" в hiasm .

карма: 1

Форумы Помощь по пакетуУгадай слова ← Ctrl12 3Ctrl →


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