--- Добавлено в 2018-05-28 22:25:53
Я толком и не понял что сказал Vadimluk1
Add(MainForm,5806304,168,175)
{
Width=172
}
Add(Button,13604353,168,224)
{
Top=40
Caption="найти"
link(onClick,15388898:doString,[])
}
Add(Edit,9851483,245,154)
{
Left=5
Top=5
Text="а"
}
Add(Edit,2606784,511,231)
{
Left=75
Top=5
Text=""
}
Add(Message,3213663,462,273)
{
Message="Нет такого слога"
}
Add(Memo,6001386,385,154)
{
Left=10
Top=75
Width=115
Height=185
Strings=#1:а|2:аб|3:абр|4:абра|5:абрак|6:абрака|7:абракад|0:|
ScrollBars=2
}
Add(FormatStr,15388898,245,224)
{
DataCount=1
Mask=".*%1.*"
link(onFString,10195223:doEvent1,[])
link(Str1,9851483:Text,[])
}
Add(RE_Check,9217605,385,231)
{
Point(Expression)
link(onMatch,1068982:doReplace,[])
link(onDismatch,3213663:doMessage,[(439,244)(439,279)])
link(Str,6001386:Text,[])
link(Expression,7632550:GetData,[(398,212)(433,212)])
}
Add(Hub,10195223,343,224)
{
link(onEvent1,7632550:doData,[(375,230)(375,146)])
link(onEvent2,9217605:doCheck,[])
}
Add(EventFromData,7632550,427,140)
{
}
Add(Replace,1068982,462,231)
{
SubStr=".*"
link(onReplace,2606784:doText,[])
}
А еще лучше взять большой словарь и озвучивать каждое слово