mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 20:29:27 +02:00
29 lines
649 B
ObjectPascal
29 lines
649 B
ObjectPascal
Program ex38;
|
|
|
|
{ Program to demonstrate the TStrCollection.Compare method }
|
|
|
|
Uses Objects,Strings;
|
|
|
|
Var C : PStrCollection;
|
|
S : String;
|
|
I : longint;
|
|
P : Pchar;
|
|
|
|
begin
|
|
Randomize;
|
|
C:=New(PStrCollection,Init(120,10));
|
|
C^.Duplicates:=True; { Duplicates allowed }
|
|
Writeln ('Inserting 100 records at random places.');
|
|
For I:=1 to 100 do
|
|
begin
|
|
Str(Random(100),S);
|
|
S:='String with value '+S;
|
|
P:=StrAlloc(Length(S)+1);
|
|
C^.Insert(StrPCopy(P,S));
|
|
end;
|
|
For I:=0 to 98 do
|
|
With C^ do
|
|
If Compare (At(I),At(I+1))=0 then
|
|
Writeln ('Duplicate string found at position ',I);
|
|
Dispose(C,Done);
|
|
end. |