Вверх ↑
Ответов: 413
Рейтинг: 57
#1: 2014-11-08 22:35:24 ЛС | профиль | цитата
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)])
}


При компилировании на делфи выходное значение из DateConvertor равно, округленному до целого числа в меньшую сторону, входному значению первого DateConvertor
А при компилировании на FPC оно приблизительно на единицу меньше.
карма: 0

0
файлы: 1code_34579.txt [953B] [844]