paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-15 00:09:07 +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; property MinValue: Longint read FMinValue write SetMinValue default 0;
end; end;
TLongintField = TIntegerField; // IDE creates TLongintField;
{ TLargeintField } { TLargeintField }
TLargeintField = class(TNumericField) TLargeintField = class(TNumericField)
@ -5456,6 +5458,7 @@ procedure TField.DefineProperties(Filer: TFiler);
procedure IgnoreWrite(Writer: TWriter); procedure IgnoreWrite(Writer: TWriter);
begin begin
if writer=Nil then;
end; end;
begin begin
@ -8905,6 +8908,7 @@ begin
else else
Result:=FValue; Result:=FValue;
end; end;
Function TParam.GetDisplayName: string; Function TParam.GetDisplayName: string;
begin begin
if (FName<>'') then if (FName<>'') then
@ -9208,4 +9212,6 @@ begin
inherited; inherited;
end; end;
Initialization
RegisterClass(TLongintField);
end. end.