Вверх ↑
Ответов: 4266
Рейтинг: 662
#1: 2020-01-02 12:10:06 ЛС | профиль | цитата
Galkov писал(а):
что он не захотел ставить в хвост Строке и Маске по дополнительному символу
БИНГО!

Galkov писал(а):
Netspirit тоже, вроде бы только "по будням" активизируется (типа - с работы).
Точно.

Galkov писал(а):
А деваться-то ему и некуда, ибо его фикс не работает.
Ага. Я подозревал что там ещё не всё, так как в голове не сложилась полная картина алгоритма этой функции. Но не смог подобрать неработающую комбинацию (видимо, по причине праздничного настроения ).

Буду думать.

--- Добавлено в 2020-01-02 12:49:31

Вариант от Galkov работает. Думаю, можно использовать, пока кто-то не предложит неработающую маску.

Galkov писал(а):
добавление символа "в хвосты" автоматически снимало вопросы уникальности строки. У меня уже есть как бы фиксинг и к этому делу...
В предложенном коде? Не увидел. И на пустой маске и строке падает:
Add(MainForm,12868012,210,133)
{
Position=1
}
Add(Edit,14729050,427,231)
{
Left=10
Top=5
Width=75
Text="Ed*"
}
Add(Edit,15909518,420,133)
{
Left=110
Top=5
Width=95
}
Add(Button,10948459,308,168)
{
Left=110
Top=35
Caption="Compare"
link(onClick,15424608:doEvent1,[])
}
Add(LED,4053424,609,217)
{
Left=230
Top=15
}
Add(DoData,7370736,427,280)
{
link(onEventData,15627684:doMask,[(512,286)(512,237)])
link(Data,14729050:Text,[])
}
Add(StrMask,15627684,560,224)
{
Point(doMask)
link(onFalse,4053424:doOff,[])
link(onTrue,4053424:doOn,[])
}
Add(ListBox,1658272,595,126)
{
Left=10
Top=85
Width=205
Height=155
}
Add(Hub,4695875,469,175)
{
OutCount=3
link(onEvent1,8948855:doEvent1,[(523,181)(523,132)])
link(onEvent2,15627684:doCompare,[(514,188)(514,230)])
link(onEvent3,8948855:doEvent2,[(533,195)(533,139)])
}
Add(Hub,8948855,546,126)
{
InCount=2
OutCount=1
link(onEvent1,1658272:doAdd,[])
}
Add(DoData,12636045,420,175)
{
link(onEventData,4695875:doEvent1,[])
link(Data,15909518:Text,[])
}
Add(Hub,15424608,357,168)
{
link(onEvent1,7370736:doData,[(399,174)(399,286)])
link(onEvent2,12636045:doData,[])
}
Так что уникализация требуется. Но не добавлением символов, естественно (StrCase в этом плане жжот ).
карма: 22

0
Редактировалось 13 раз(а), последний 2020-01-02 13:20:56