瀏覽代碼

* fixed object names in comments

Nikolay Nikolov 3 年之前
父節點
當前提交
c224661836
共有 1 個文件被更改,包括 5 次插入5 次删除
  1. 5 5
      packages/rtl-extra/src/inc/objects.pp

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

@@ -2683,7 +2683,7 @@ END;
 {                  TUnicodeStringCollection OBJECT METHODS                  }
 {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
 
-{--TRawByteStringCollection-------------------------------------------------}
+{--TUnicodeStringCollection-------------------------------------------------}
 {  GetItem -> Platforms DOS/DPMI/WIN/OS2 - Checked 22May96 LdB              }
 {---------------------------------------------------------------------------}
 FUNCTION TUnicodeStringCollection.GetItem (Var S: TStream): Pointer;
@@ -2692,7 +2692,7 @@ BEGIN
    UnicodeString(GetItem) := S.ReadUnicodeString;            { Get new item }
 END;
 
-{--TRawByteStringCollection-------------------------------------------------}
+{--TUnicodeStringCollection-------------------------------------------------}
 {  Compare -> Platforms DOS/DPMI/WIN/OS2 - Checked 21Aug97 LdB              }
 {---------------------------------------------------------------------------}
 FUNCTION TUnicodeStringCollection.Compare (Key1, Key2: Pointer): Sw_Integer;
@@ -2716,7 +2716,7 @@ BEGIN
      Else Compare := 1;                               { String1 > String2 }
 END;
 
-{--TRawByteStringCollection-------------------------------------------------}
+{--TUnicodeStringCollection-------------------------------------------------}
 {  FreeItem -> Platforms DOS/DPMI/WIN/OS2 - Checked 22May96 LdB             }
 {---------------------------------------------------------------------------}
 PROCEDURE TUnicodeStringCollection.FreeItem (Item: Pointer);
@@ -2724,7 +2724,7 @@ BEGIN
    UnicodeString(Item):='';                                  { Dispose item }
 END;
 
-{--TRawByteStringCollection-------------------------------------------------}
+{--TUnicodeStringCollection-------------------------------------------------}
 {  PutItem -> Platforms DOS/DPMI/WIN/OS2 - Checked 22May96 LdB              }
 {---------------------------------------------------------------------------}
 PROCEDURE TUnicodeStringCollection.PutItem (Var S: TStream; Item: Pointer);
@@ -2732,7 +2732,7 @@ BEGIN
    S.WriteUnicodeString(UnicodeString(Item));                { Write string }
 END;
 
-{--TRawByteStringCollection-------------------------------------------------}
+{--TUnicodeStringCollection-------------------------------------------------}
 {  AtInsert                                                                 }
 {---------------------------------------------------------------------------}
 PROCEDURE TUnicodeStringCollection.AtInsert (Index: Sw_Integer; const Item: UnicodeString);