mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-20 23:38:17 +02:00
25 lines
521 B
ObjectPascal
25 lines
521 B
ObjectPascal
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. |