Вверх ↑
Ответов: 1700
Рейтинг: 120
#1: 2020-10-13 00:58:48 ЛС | профиль | цитата
Add(MainForm,3552833,238,91)
{
Height=497
}
Add(SearchInFile,13699833,406,140)
{
link(onSearch,15696249:doEvent1,[])
link(Text,5386282:Var2,[])
}
Add(Memo,6034826,770,203)
{
Left=15
Top=15
Width=365
Height=190
}
Add(Button,7835028,273,140)
{
Left=15
Top=410
link(onClick,15142632:doExecute,[])
}
Add(Edit,3999177,413,77)
{
Left=105
Top=405
Width=265
Text="пыли"
}
Add(ODialog,15142632,350,140)
{
link(onExecute,13699833:doSearch,[])
}
Add(Str_Enum,11852188,511,203)
{
Delimiter=" "
link(onEnum,3049498:doCompare,[])
link(String,7783174:Var2,[])
}
Add(Memory,10915667,511,147)
{
}
Add(Hub,15696249,476,147)
{
link(onEvent1,10915667:doValue,[])
link(onEvent2,11852188:doEnum,[(500,160)(500,209)])
}
Add(If_else,3049498,616,203)
{
link(onTrue,8708470:doData,[])
link(Op2,5386282:Var3,[(629,117)])
}
Add(GetDataEx,5386282,413,112)
{
link(Data,3999177:Text,[])
}
Add(DoData,8708470,686,203)
{
link(onEventData,6034826:doAdd,[])
link(Data,7783174:Var3,[(692,194)])
}
Add(GetDataEx,7783174,511,189)
{
link(Data,10915667:Value,[])
}


На самом деле надо писать IC, потому что слова могут разделятся знаками препинания и переводом строки.
Завтра посмотрю, может чего-то похожее есть готовое.
А гляжу, что уже не надо.
карма: 5

1
Голосовали:NUB
Редактировалось 1 раз(а), последний 2020-10-13 01:00:43