Em Qua, 2005-11-30 às 13:25 +0000, Edwin Quijada escreveu:
> Hi, All!!
> I am developing my first app using Lazarus and now I have found a serious
> problem with date with Lazarus. This show me a date 1/10/1899. I have been
> in zeos forum and they say that problem is for FPC not zeos. Somebody says
> that the problem is with the structure that use Lazarus to see the date,
> before like delphi 2,3,4 , but now it uses the nwe form Tdatetime and the
> problems it is. Really this problem is from compiler.
> So0mebody here has a cluee how can we resolve this problem??
> I am using Lazarus so heavy and I dont wanna go to anyplace!!
> Really , Lazarus is a good job!!!
Try applying the attached patch to ZAbstractRODataset.pas in
src/component.
Sorry if it not work since i did not tested (I'm not sufficient smart to
install zeoslib in Lazarus ;-) )
Luiz
Index: ZAbstractRODataset.pas
===================================================================
RCS file: /cvsroot/zeoslib/zeosdbo_rework/src/component/ZAbstractRODataset.pas,v
retrieving revision 1.107
diff -c -r1.107 ZAbstractRODataset.pas
*** ZAbstractRODataset.pas 9 Sep 2005 14:19:42 -0000 1.107
--- ZAbstractRODataset.pas 1 Dec 2005 23:20:53 -0000
***************
*** 1126,1131 ****
--- 1126,1132 ----
if Buffer <> nil then
begin
case Field.DataType of
+ {$ifdef fpc}
{ Processes DateTime fields. }
ftDate, ftTime, ftDateTime:
begin
***************
*** 1142,1147 ****
--- 1143,1149 ----
Result := not Result;
end;
end;
+ {$endif}
{ Processes binary array fields. }
ftBytes:
begin
