paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed 13762 and compilation on windows

Browse Source 
git-svn-id: trunk@13931 -
This commit is contained in:
michael 2009-10-23 15:16:26 +00:00
parent 80924b7a4d
commit 613d88e38d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-db/src/paradox/paradox.pp
View File

@ -633,7 +633,7 @@ var
No,pft,flen : integer;
pxf : PPx_field;
Value : Pchar;
Y,M,D : cint;
D : clong;
longv : Clong;
R : Double;
c : Char;
@ -656,7 +656,9 @@ begin
If result then
begin
Move(Value^,Buffer^,flen);
doc^.free(doc,value);
If (Flen<=Field.DataSize) then
Pchar(Buffer)[flen]:=#0;
FDoc^.free(FDoc,value);
end;
end;
pxfDate:
@ -695,7 +697,7 @@ begin
begin
Result:=(PX_get_data_byte(FDoc,Buf,flen,@C)>0);
If result then
PBoolean(Buffer)^:=(C<>#0);
PWordBool(Buffer)^:=(C<>#0);
end;
pxfBytes:
begin
@ -728,9 +730,9 @@ begin
begin
R:=R/1000.0;
longv:=trunc(R /86400);
PX_SdnToGregorian(longv+1721425,@Y,@M,@D);
D:=Longv+1721425-2415019;
longv:=(Trunc(r) mod 86400);
PDateTime(Buffer)^:=EncodeDate(Y,M,d)+(Longv/MSecsPerday);
PDateTime(Buffer)^:=D+(Longv/MSecsPerday);
end;
end;
pxfBCD: