+ added AtInsert method to TRawByteStringCollection

git-svn-id: branches/unicodekvm@48631 -

packages/rtl-extra/src/inc/objects.pp

@@ -501,6 +501,7 @@ TYPE
       FUNCTION Compare (Key1, Key2: Pointer): Sw_Integer;            Virtual;
       PROCEDURE FreeItem (Item: Pointer);                            Virtual;
       PROCEDURE PutItem (Var S: TStream; Item: Pointer);             Virtual;
+      PROCEDURE AtInsert (Index: Sw_Integer; const Item: RawByteString);
    END;
    PRawByteStringCollection = ^TRawByteStringCollection;
 
@@ -2617,6 +2618,17 @@ BEGIN
    S.WriteRawByteString(RawByteString(Item));                { Write string }
 END;
 
+{--TRawByteStringCollection-------------------------------------------------}
+{  AtInsert                                                                 }
+{---------------------------------------------------------------------------}
+PROCEDURE TRawByteStringCollection.AtInsert (Index: Sw_Integer; const Item: RawByteString);
+VAR TmpRef: Pointer;
+BEGIN
+   TmpRef:=Nil;
+   RawByteString(TmpRef) := Item;
+   TCollection.AtInsert(Index, Pointer(Item));
+END;
+
 {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
 {                       TStrCollection OBJECT METHODS                       }
 {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}