paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 09:47:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixes for pxlib (paradox loader) from Barlone, Mantis #20945

Browse Source 
git-svn-id: trunk@19880 -
This commit is contained in:
marco 2011-12-21 19:32:32 +00:00
parent 4785b5637f
commit 56c978e4f4
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/pxlib/examples/ppxview.pp
View File

@ -55,6 +55,7 @@ var
buf, fbuf,value : Pchar;
longv : clong;
y,m,d : cint;
si: shortint;
R : Double;
c : char;
@ -89,8 +90,8 @@ begin
{$endif}
end;
pxfShort:
if PX_get_data_short(Doc,fbuf, flen, @D)>0 then
S:=IntToStr(D);
if PX_get_data_short(Doc,fbuf, flen, @si)>0 then
S:=IntToStr(si);
pxfAutoInc,
pxfLong:
if (PX_get_data_long(Doc,fbuf,flen,@longv)>0) then
@ -158,6 +159,7 @@ begin
Inc(Pxf);
end;
end;
FreeMem(Buf);
end;
Var

4
packages/pxlib/src/pxlib.pp
View File

@ -354,7 +354,7 @@ var
PX_get_data_bytes : function(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:Ppcchar):cint;cdecl;
PX_get_data_double : function(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:Pdouble):cint;cdecl;
PX_get_data_long : function(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:pclong):cint;cdecl;
PX_get_data_short : function(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:pcsint):cint;cdecl;
PX_get_data_short : function(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:pcsshort):cint;cdecl;
PX_get_data_byte : function(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:pcchar):cint;cdecl;
PX_get_data_bcd : function(pxdoc:Ppxdoc_t; data:pcuchar; len:cint; value:Ppcchar):cint;cdecl;
PX_get_data_blob : function(pxdoc:Ppxdoc_t; data:pcchar; len:cint; _mod:pcint; blobsize:pcint;
@ -365,7 +365,7 @@ var
PX_put_data_bytes : procedure(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:pcchar);cdecl;
PX_put_data_double : procedure(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:double);cdecl;
PX_put_data_long : procedure(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:cint);cdecl;
PX_put_data_short : procedure(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:csint);cdecl;
PX_put_data_short : procedure(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:csshort);cdecl;
PX_put_data_byte : procedure(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:cchar);cdecl;
PX_put_data_bcd : procedure(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:pcchar);cdecl;
PX_put_data_blob : function(pxdoc:Ppxdoc_t; data:pcchar; len:cint; value:pcchar; valuelen:cint):cint;cdecl;