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

* Remove offset in field, fix warning

Browse Source
This commit is contained in:
michael 2018-07-19 12:54:50 +00:00
parent 53a3015923
commit 30d57e270c
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -258,7 +258,6 @@ type
FLookupKeyfields : String; FLookupKeyfields : String;
FLookupresultField : String; FLookupresultField : String;
FLookupList: TLookupList; FLookupList: TLookupList;
FOffset : Word;
FOnChange : TFieldNotifyEvent; FOnChange : TFieldNotifyEvent;
FOnGetText: TFieldGetTextEvent; FOnGetText: TFieldGetTextEvent;
FOnSetText: TFieldSetTextEvent; FOnSetText: TFieldSetTextEvent;
@ -372,7 +371,6 @@ type
property IsNull: Boolean read GetIsNull; property IsNull: Boolean read GetIsNull;
property Lookup: Boolean read GetLookup write SetLookup; deprecated; property Lookup: Boolean read GetLookup write SetLookup; deprecated;
property NewValue: JSValue read GetNewValue write SetNewValue; property NewValue: JSValue read GetNewValue write SetNewValue;
property Offset: word read FOffset;
property Size: Integer read FSize write SetSize; property Size: Integer read FSize write SetSize;
property Text: string read GetEditText write SetEditText; property Text: string read GetEditText write SetEditText;
property ValidChars : TFieldChars read FValidChars write FValidChars; property ValidChars : TFieldChars read FValidChars write FValidChars;
@ -2385,7 +2383,6 @@ begin
else if Field.FieldKind in [fkCalculated, fkLookup] then else if Field.FieldKind in [fkCalculated, fkLookup] then
begin begin
Field.FFieldNo := -1; Field.FFieldNo := -1;
Field.FOffset := -1;
Inc(FCalcFieldsCount); Inc(FCalcFieldsCount);
end end
else else
@ -2403,7 +2400,6 @@ begin
if Field.IsBlob then if Field.IsBlob then
begin begin
Field.FSize := FieldDef.Size; Field.FSize := FieldDef.Size;
Field.FOffset := FBlobFieldCount;
Inc(FBlobFieldCount); Inc(FBlobFieldCount);
end; end;
// synchronize CodePage between TFieldDef and TField // synchronize CodePage between TFieldDef and TField
@ -2919,7 +2915,6 @@ Var
BI,RI,Idx: integer; BI,RI,Idx: integer;
RUD : TRecordUpdateDescriptor; RUD : TRecordUpdateDescriptor;
doRemove : Boolean; doRemove : Boolean;
Resolved : TResolveInfoArray;
Results : TResolveResults; Results : TResolveResults;
begin begin