File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed
Source/Data/ObjectDataSet Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -101,7 +101,7 @@ TBlobStream = class(TMemoryStream)
101101 fFieldData: Variant;
102102 procedure ReadBlobData ;
103103 protected
104- function Realloc (var NewCapacity: LongInt): Pointer; override;
104+ function Realloc (var NewCapacity: { $IF RTLVersion >= 35 } NativeInt { $ELSE } LongInt{ $IFEND } ): Pointer; override;
105105 public
106106 constructor Create(Field: TBlobField; Mode: TBlobStreamMode);
107107 destructor Destroy; override;
@@ -1569,7 +1569,7 @@ procedure TBaseVirtualDataSet.TBlobStream.ReadBlobData;
15691569end ;
15701570
15711571function TBaseVirtualDataSet.TBlobStream .Realloc(
1572- var NewCapacity: LongInt): Pointer;
1572+ var NewCapacity: { $IF RTLVersion >= 35 } NativeInt { $ELSE } LongInt{ $IFEND } ): Pointer;
15731573
15741574 procedure VarAlloc (var V: Variant; Field: TFieldType);
15751575 var
You can’t perform that action at this time.
0 commit comments