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

* Fix some warnings, add TLongintField alias

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-05-21 21:28:07 +02:00
parent 574be89907
commit 791113663a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/db.pas
View File

@ -496,6 +496,8 @@ type
property MinValue: Longint read FMinValue write SetMinValue default 0;
end;
TLongintField = TIntegerField; // IDE creates TLongintField;
{ TLargeintField }
TLargeintField = class(TNumericField)
@ -5456,6 +5458,7 @@ procedure TField.DefineProperties(Filer: TFiler);
procedure IgnoreWrite(Writer: TWriter);
begin
if writer=Nil then;
end;
begin
@ -8905,6 +8908,7 @@ begin
else
Result:=FValue;
end;
Function TParam.GetDisplayName: string;
begin
if (FName<>'') then
@ -9208,4 +9212,6 @@ begin
inherited;
end;
Initialization
RegisterClass(TLongintField);
end.