|
@@ -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);
|