Reference for package '#rtl'

TUnSortedStrCollection.Insert

Insert a new string in the collection.

Declaration

Source position: objects.pp line 514

default 
  procedure Insert(Item: Pointer);  Virtual;

Description

Insert inserts a string at the end of the collection, instead of on it's alphabetical place, resulting in an unsorted collection of strings.

Errors

None.

See also

Name Description
TCollection.Insert Insert a new item in the collection at the end.

Example

Program ex39;
{ Program to demonstrate the TUnsortedStrCollection.Insert method }
Uses Objects,Strings;
Var C : PUnsortedStrCollection;
    S : String;
    I : longint;
    P : Pchar;
begin
  Randomize;
  C:=New(PUnsortedStrCollection,Init(120,10));
  Writeln ('Inserting 100 records at random places.');
  For I:=1 to 100 do
    begin
    Str(Random(100),S);
    S:='String with value '+S;
    C^.Insert(NewStr(S));
    end;
  For I:=0 to 99 do
    Writeln (I:2,': ',PString(C^.At(i))^ );
  Dispose(C,Done);
end.