Есть проблема.
Просто в том форуме были ответы автора.
Может, они были бы полезны.
Вот сам вопрос. Немного длинновато, правда:
автор писал:Здравствуйте, Максим Гумеров.
Заинтересовался вашей статьей и решил попробовать Вашего наследника TDataSet.
При этом столкнулся с ошибкой при отображении даты.
Как правильно поместить значение даты в Data?
У меня такой код
TDateTime(Data) := TMyRecord(List[Index]).Date;
вызывает ошибку
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EConvertError with message ''0.37904' is not a valid timestamp'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Нашел, что ошибка возникает здесь:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
function NativeToDateTime(DataType: TFieldType; Data: TDateTimeRec): TDateTime;
var
TimeStamp: TTimeStamp;
begin
case DataType of
ftDate:
begin
TimeStamp.Time := 0 ;
TimeStamp.Date := Data.Date;
end;
ftTime:
begin
TimeStamp.Time := Data.Time;
TimeStamp.Date := DateDelta;
end;
else
try
TimeStamp := MSecsToTimeStamp(Data.DateTime); // Попадает сюда
except
TimeStamp.Time := 0 ;
TimeStamp.Date := 0 ;
end;
end;
Result := TimeStampToDateTime(TimeStamp); // и здесь возникает ошибка
end;
function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;
asm
PUSH EBX
{$IFDEF PIC}
PUSH EAX
CALL GetGOT
MOV EBX,EAX
POP EAX
{$ELSE}
XOR EBX,EBX
{$ENDIF}
PUSH EAX
CALL ValidateTimeStamp // Вот тут вот
POP EAX
MOV ECX,[EAX].TTimeStamp.Time
MOV EAX,[EAX].TTimeStamp.Date
SUB EAX,DateDelta
IMUL [EBX].IMSecsPerDay
OR EDX,EDX
JNS @@ 1
SUB EAX,ECX
SBB EDX, 0
JMP @@ 2
@@ 1 : ADD EAX,ECX
ADC EDX, 0
@@ 2 : PUSH EDX
PUSH EAX
FILD QWORD PTR [ESP]
FDIV [EBX].FMSecsPerDay
ADD ESP, 8
POP EBX
end;
В чем причина, никак не могу понять.
С уважением, Артем.
Там еще дальше были посты, но ответа мы так и не нашли,
так что их я не привожу. И так длинно получилось.
