Besser wäre es das Einfügen von doppelten Einträgen zu verhindern.
.. darauf wollte ich hinaus.
Zitat:
Class
TStringList
Syntax
property Duplicates: TDuplicates read FDuplicates write FDuplicates;
Description
Set Duplicates to specify what should happen when an attempt is made to add a duplicate string to a sorted list. The CaseSensitive property controls whether two strings are considered duplicates if they are identical except for differences in case.
The value of Duplicates should be one of the following.
Value Meaning
dupIgnore
Ignore attempts to add duplicate strings to the list.
dupError
raise an EStringListError
exception when an attempt is made to add duplicate strings to the sorted list.
dupAccept
Permit duplicate strings in the sorted list.
Set Duplicates before adding any strings to the list. Setting Duplicates to dupIgnore or dupError does nothing about duplicate strings that are already in the list.
Note:
Duplicates does nothing if the list is not sorted.
Grüße
Klaus