|
|
@@ -572,6 +572,9 @@ type |
|
|
|
|
|
|
|
function utlFreeOrFinalize(var obj; const aTypeInfo: PTypeInfo; const aFreeObj: Boolean = true): Boolean; |
|
|
|
|
|
|
|
operator < (const i1, i2: TObject): Boolean; inline; |
|
|
|
operator > (const i1, i2: TObject): Boolean; inline; |
|
|
|
|
|
|
|
implementation |
|
|
|
|
|
|
|
uses |
|
|
@@ -580,15 +583,15 @@ uses |
|
|
|
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// |
|
|
|
//Helper//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// |
|
|
|
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// |
|
|
|
operator < (const i1, i2: TObject): Boolean; inline; |
|
|
|
operator < (const i1, i2: TObject): Boolean; |
|
|
|
begin |
|
|
|
result := PtrUInt(i1) < PtrUInt(i2); |
|
|
|
result := Pointer(i1) < Pointer(i2); |
|
|
|
end; |
|
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// |
|
|
|
operator > (const i1, i2: TObject): Boolean; inline; |
|
|
|
operator > (const i1, i2: TObject): Boolean; |
|
|
|
begin |
|
|
|
result := PtrUInt(i1) > PtrUInt(i2); |
|
|
|
result := Pointer(i1) > Pointer(i2); |
|
|
|
end; |
|
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// |
|
|
|