Zitat von
DieHardMan:
@marabu, dein Code funktioniert zwar, vergleicht aber nur die aufeinanderfolgenden Items auf Gleichheit und nicht alle, dazu sind 2 Schleifen nötig.
Das ist richtig. Ich ging von einer sortierten Liste aus - vielleicht weil du deine Anforderung nicht in den Text geschrieben hattest. Bei unsortierten Items sollte man eine getrennte Liste führen, die dann aber sortiert sein sollte. Du kommst dann am Ende automatisch auf den Ansatz, den Hawkeye gezeigt hat - nur fehlt dort noch die Einstellung Sorted für die TStringList.
marabu