MyChatScripts: property TStringList.Duplicates, actions with string copies

When inserting new strings to the list, set the behavior of this TStringList class: ignore copies, add them, or mark as error.

This property works only if the string list is sorted.

Syntax

property TStringList.Duplicates: TDuplicates;

Parameters an return values

dupIgnore	ignore copies and do not add them to the list;
dupAccept	add any strings;
dupError	ignore copies and do not add them to the list by generating an error of adding an element. (use try...except).

Example

var
SL: TStringList;

procedure FillList;
var
i: integer;
begin
for i := 1 to 20 do
SL.Append(IntToStr(random(5)));
end;
begin
SL := TStringList.Create;
SL.Sorted := true;

SL.Duplicates := dupAccept;
FillList;
mLogScript(SL.CommaText, 'Enable duplicates');

SL.Clear;
SL.Duplicates := dupIgnore;
FillList;

mLogScript(SL.CommaText, 'Disable duplicates');
SL.Free;
end.

Script work result

[16:48:28] (Log "DuplicatesProperty"): [Enable duplicates] 0,0,0,0,0,1,1,1,1,2,2,2,3,3,3,3,3,4,4,4

[16:48:28] (Log "DuplicatesProperty"): [Disable duplicates] 0,1,2,3,4

[16:48:28] (Run "DuplicatesProperty"): Script operation time: 5 ms

[16:48:28] (Run "DuplicatesProperty"): Script done successfully.

MyChat Help