paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 16:58:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better field size detection, add support for smallint field

Browse Source
This commit is contained in:
michael 2019-09-12 20:33:33 +00:00
parent de8d28c369
commit b60221b7b6
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/dataabstract/dadataset.pas
View File

@ -346,6 +346,9 @@ begin
case LowerCase(s) of
'widestring' : result:=ftString;
'currency' : result:=ftFloat;
'smallint' : result:=ftInteger;
else
writeln('Unknown field type:',S)
end;
end;
@ -401,7 +404,15 @@ begin
fn:=F.Name;
// The JSON streamer does not create all properties :(
if FO.hasOwnProperty('size') then
fs:=F.Size
begin
if isString(FO['size']) then
fs:=StrToInt(String(FO['size']))
else if isNumber(FO['size']) then
fs:=F.Size
else
fs:=0;
end
else
fs:=0;
if FO.hasOwnProperty('type') then
@ -415,6 +426,7 @@ begin
Ft:=DataTypeToFieldType(dT);
if (ft=ftBlob) and (fs=0) then
fs:=1;
// Writeln('FieldDef : ',fn,', ',ft,', ',fs);
FieldDefs.Add(fn,ft,fs,Req);
end;
end;