Dubikate in TStringGrid anzeigen (den Rest rausschmeißen)...

[alzaimar]

Kann ich mich bei einem TStringList.IndexOf denn darauf verlassen, das bei doppeltem Vorkommen immer der erste Eintrag gefunden wird, vor allen Dingen, wenn die TStringList.sorted = True ist? Ich weiss, eine ketzterische Frage.

Um auf Nummer Sicher zu gehen, würde ich mir die Mühe machen, das IndexOf durch eine kleine eigene Routine ersetzt, die prüft, ob ein Wert in der Unterliste (0..n) vorhanden ist, oder nicht.

Bei einer sortierten Liste (wie in deiner Codelibrary) liegen Duplikate naturgemäß nebeneinander, insofern erübrigt sich eine Suche mit IndexOf: Entweder ist mein Vorgänger mit mir identisch, oder eben nicht. Desweiteren sollten Duplikate nur 1x auftreten.
Hier also mein Versuch (er erstellt aber eine zweite Liste, die die doppelten Einträge enthält):

Delphi-Quellcode:

Procedure FindDuplicates (aList, aDuplicates : TStringList);
Var
  i : Integer;
  sSample : String;

Begin
  aList.Sort;
  i := 1;
  sSample := aList [0];
  While i<aList.Count - 1 do begin
    j := i;
    While aList[i] = sSample do 
      inc (i);
    if j< i - 1 then 
      aDuplicates.add(sSample);
    sSample := aList[i];
    End;
End;