Вверх ↑
Ответов: 17
Рейтинг: 0
#1: 2019-12-31 03:18:37 ЛС | профиль | цитата
С наступающим годом!
При использовании компонента Mask, во всех новый компиляторах "Delphi, FPC-xx" не производится сравнение части строки и последующей (*) звёздочки. см. пример.
Проверил на стандартных компиляторах всё работает.


Add(MainForm,2953706,21,105)
{
}
Add(Edit,14729050,70,105)
{
Left=10
Top=5
Text="Ed*"
}
Add(Edit,15909518,140,105)
{
Left=85
Top=5
}
Add(Button,16659015,21,154)
{
Left=10
Top=35
Caption="Mask"
link(onClick,7370736:doData,[])
}
Add(Button,10948459,21,63)
{
Left=85
Top=35
Caption="Compare"
link(onClick,15627684:doCompare,[(110,69)(110,153)])
}
Add(LED,4053424,189,140)
{
Left=160
Top=15
}
Add(DoData,7370736,70,154)
{
link(onEventData,15627684:doMask,[])
link(Data,14729050:Text,[])
}
Add(StrMask,15627684,140,147)
{
Point(doMask)
link(onFalse,4053424:doOff,[])
link(onTrue,4053424:doOn,[])
link(Str,15909518:Text,[])
}

карма: 0

0