paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-14 20:50:03 +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;
FLookupresultField : String;
FLookupList: TLookupList;
FOffset : Word;
FOnChange : TFieldNotifyEvent;
FOnGetText: TFieldGetTextEvent;
FOnSetText: TFieldSetTextEvent;
@ -372,7 +371,6 @@ type
property IsNull: Boolean read GetIsNull;
property Lookup: Boolean read GetLookup write SetLookup; deprecated;
property NewValue: JSValue read GetNewValue write SetNewValue;
property Offset: word read FOffset;
property Size: Integer read FSize write SetSize;
property Text: string read GetEditText write SetEditText;
property ValidChars : TFieldChars read FValidChars write FValidChars;
@ -2385,7 +2383,6 @@ begin
else if Field.FieldKind in [fkCalculated, fkLookup] then
begin
Field.FFieldNo := -1;
Field.FOffset := -1;
Inc(FCalcFieldsCount);
end
else
@ -2403,7 +2400,6 @@ begin
if Field.IsBlob then
begin
Field.FSize := FieldDef.Size;
Field.FOffset := FBlobFieldCount;
Inc(FBlobFieldCount);
end;
// synchronize CodePage between TFieldDef and TField
@ -2919,7 +2915,6 @@ Var
BI,RI,Idx: integer;
RUD : TRecordUpdateDescriptor;
doRemove : Boolean;
Resolved : TResolveInfoArray;
Results : TResolveResults;
begin