Stringlist nach sortet und dupIgnore wiederherstellen

[Ajin]

Hallo!

Delphi-Quellcode:

//Stringliste neuen Eintrag hinzufügen und wieder abspeichern
sl := TStringList.create;
try
 sl.LoadFromFile(FN_MYFILE);
 sl.Sorted := true;
 sl.Duplicates := dupIgnore;
 sl.Append(my_zickezacke);
 l.saveToFile(FN_MYFILE);
finally
 sl.free;
end;

Eine Datei wird in eine Stringlist geladen. Nun soll ein Eintrag hinzugefügt werden, dabei ist aber auf doppelte Einträge zu achten. Aus diesem Gund musste ich die Liste zuerst sortieren.

Ich möchte die Liste aber nicht alphabetisch sortiert wieder abspeichern, sondern im Urzustand lassen und lediglich den neuen Eintrag anhängen. Aberdennoch darf der anzuhängende Eintrag nicht schon in der Liste stehen.

Wie löst man sowas?

[Muetze1]

B'n'D Ansatz: Kopier dir die Liste und habe eine welche die doppelten abprüft (also sortiert ist). Wenn dort alles glatt geht, dann füge das Element in deiner Hauptliste ein.

[sirius]

Ist es nicht besser einfach alle Einträge durchzugehen, als erst die ganze Liste zu kopieren

Delphi-Quellcode:

sl := TStringList.create; 
try 
sl.LoadFromFile(FN_MYFILE); 
if sl.indexof(my_zickezacke)<0 then sl.add(my_zickezacke); 
l.saveToFile(FN_MYFILE); 
finally 
sl.free; 
end;

[Muetze1]

Das macht dupIgnore doch genauso, nur halt schneller, weil er eine sortierte Liste braucht. Es ist das gleiche Verhalten, aber dupIgnore ist deutlich schneller. Wenn man nun deinen und meinen Vorschlag vergleicht und man davon ausgeht, dass es hier um mehr als einen Eintrag geht, dann sollte mein Vorschlag zwar mehr Speicher verbrauchen, aber trotzdem schneller sein.

[Ajin]

In dieser Liste werden nicht mehr als 200 Einträge stehen.

Das dürfte performancetechnisch nicht ins Gewicht fallen oder?

[sirius]

Hmm ja. Wahrscheinlich ist es bedeutungslos, aber erst kopieren, dann sortieren und dann durchsuchen dauaert bestimmt länger als einmal (wenn auch langsamer) durchsuchen.

[roter Kasten]: Ja