TStringList ignoriert doppelte Einträge nicht

[devidespe]

Hi,

ich benutze Delphi 2007 Pro und versuche, eine StringList mit Einträgen zu füllen. Dabei sollen doppelt hinzugefügte Einträge ignoriert werden. Hier ein vereinfachter Auszug meines Codes:

Delphi-Quellcode:

var Liste : TStringList
    i : Byte;
begin
  Liste:=TStringList.Create;
  
  Liste.Sorted:=False;
  Liste.Duplicates:=dupIgnore;

  Liste.Add('Eintrag 1');
  Liste.Add('Eintrag 1');
  Liste.Add('Eintrag 1');

  for i:=0 to Liste.Count-1 do showmessage(Liste.Strings[i]);

  Liste.Free;
end;

Woran kann es liegen, dass die doppelten Einträge trotzdem vorhanden sind?

[Matze]

Zitat von devidespe:

Delphi-Quellcode:

Liste.Sorted:=False;
Liste.Duplicates:=dupIgnore;

Woran kann es liegen, dass die doppelten Einträge trotzdem vorhanden sind?

Auszug aus der Hilfe:

Zitat:

Note: Duplicates does nothing if the list is not sorted.

Edit: Und zukünftig daran denken, Ressourcen-Schutzblöcke zu nutzen, damit auch im Fehlerfall der Speicher freigegeben wird:

Delphi-Quellcode:

Liste := TStringList.Create;
try
  // ...
finally
  Liste.Free; // oder: FreeAndNil(Liste);
end;

[devidespe]

Okay, das hatte ich überlesen.

Gibt es keine Möglichkeit, dies ohne Listensortierung durchzuführen?

[Matze]

Nur manuell, indem du vor dem Einfügen selbst in einer Schleife prüft, ob der Eintrag bereits enthalten ist.

Also grob aus dem Kopf:

Delphi-Quellcode:

Included := false;
for i := 0 to Liste.Count - 1 do
begin
  if Liste[i] = 'Eintrag 1' then
  begin
    Included := true;
    break;
  end;
end;

if not Included then
  Liste.Add('Eintrag 1');

Natürlich noch schön als Funktion/Methode verpacken und gut ist.

[DeddyH]

Mit IndexOf() geht das auch etwas kürzer (macht aber intern wohl genau dasselbe)

[zeras]

Zitat von DeddyH:

Mit IndexOf() geht das auch etwas kürzer (macht aber intern wohl genau dasselbe)

.... und der Qulltext wird dafür bestimmt übersichtlicher. Ich nutze IndexOf() für solche Funktionen immer.