Netspirit писал(а):
замени и попробуй. Заодно и на x64.Попробовал без DateConvertor соединить два DatePicker и даты выводит верные, а вот с DateConvertor нет. Получается ошибка в DateConvertor кроется
Add(MainForm,15379800,329,112)
{
Width=368
Height=149
DragForm=0
Position=1
}
Add(DatePicker,367113,609,196)
{
@Hint=#4:Дата|
Left=190
Top=25
Width=130
Height=21
SetDateOnChange=1
Point(DateInt)
AddHint(-3,46,41,13,@Hint)
}
Add(DatePicker,10354439,434,196)
{
@Hint=#4:Дата|
Left=5
Top=25
Width=130
Height=21
SetDateOnChange=1
Point(DateInt)
link(onChange,367113:doSetDate,[])
AddHint(-5,48,41,13,@Hint)
}
Add(DatePicker,2868916,749,294)
{
@Hint=#4:Дата|
Left=190
Top=70
Width=130
Height=21
SetDateOnChange=1
Point(DateInt)
AddHint(-3,46,41,13,@Hint)
}
Add(DatePicker,5299703,378,294)
{
@Hint=#4:Дата|
Left=10
Top=70
Width=130
Height=21
SetDateOnChange=1
Point(DateInt)
link(onChange,597007:doEvent1,[])
AddHint(-5,48,41,13,@Hint)
}
Add(DateConvertor,10755207,504,294)
{
Mode=9
Format="dd.MM.yyyy"
Point(Data)
link(onResult,11557036:doConvert,[])
}
Add(DateConvertor,11557036,567,294)
{
Mode=8
Format="dd.MM.yyyy"
Point(Data)
link(onResult,15216875:doEvent1,[])
}
Add(Label,6350345,525,350)
{
Left=7
Top=92
Width=135
}
Add(Hub,597007,434,294)
{
link(onEvent1,10755207:doConvert,[])
link(onEvent2,6350345:doText,[(494,307)(494,356)])
}
Add(Label,6568496,679,350)
{
Left=192
Top=92
Width=155
}
Add(Hub,15216875,616,294)
{
link(onEvent1,2868916:doSetDate,[])
link(onEvent2,6568496:doText,[(669,307)(669,356)])
}
А при компилировании на FPC оно приблизительно на единицу меньше.