Listbox Einträge vergl., bei Doppelbelegung einen Löschen

[nahpets]

Zitat von Ginko:

Aber wie ich sehe klappt es auch mit deiner 'for' Schleife nur werden hier auch nicht alle Werte abgefagt.

Welche Werte werden nicht abgefragt? Die Forschleife sorgt dafür, dass zuerst der letzte und der vorletzte Eintrag verglichen werden, dann der vorletzte mit dem vorvorletzten ... bis der erste und der nullte Eintrag miteinander verglichen werden. Hier sollte eigentlich nichts "übersprungen" werden.

[DeddyH]

Ohne mich selbst loben zu wollen finde ich meine Methode am Einfachsten

[Ginko]

Ja das klappt aber es sollen auch der letzte mit dem ersten, der letzte mit dem zweiten usw verglichen
werden.

Also wenn jetzt zum Beispiel an Stelle 1 (0 0 0) steht und an Stelle 5 (0 0 0) dann soll die erste stelle gelöscht werden oder wenn nicht anders möglich die 5te.

[taaktaak]

Zitat:

ich will die einträge einer Listbox an bestimmten stellen
vergleichen und bei Doppelbelegung einen rauslöschen

Diese Aufgabenstellung erscheint mir seltsam. Warum "an bestimmten Stellen"? Oder sollen ALLE Doubletten gelöscht werden?

Grundsätzlich wäre es auch (vielleicht) sinnvoller, die Doubletten gar nicht erst in die Listbox aufzunehmen. Also z.B. mit

Delphi-Quellcode:

with ListBox1.Items do
  if IndexOf(~~)<0 then Add(~~

zu gewährleisten dass keine doppelten Einträge hinein kommen.

[DeddyH]

Das geht aber einfacher mit Sorted auf true und Duplicates auf dupIgnore.

[edit] Kommando zurück, das gilt nur für TStringlist. [/edit]

[nahpets]

Hallo,

Zitat von DeddyH:

Ohne mich selbst loben zu wollen finde ich meine Methode am Einfachsten

okay, Du bekommst jetzt ein gaaaaaaanz dickes Lob
Deine Methode berücksichtig bisher noch nicht, dass beim Vergleich nur das 5. ,7. und 9. Zeichen der Einträge berücksichtigt werden sollen.

[nahpets]

Hallo,

Zitat von Ginko:

Ja das klappt aber es sollen auch der letzte mit dem ersten, der letzte mit dem zweiten usw verglichen
werden.

Also wenn jetzt zum Beispiel an Stelle 1 (0 0 0) steht und an Stelle 5 (0 0 0) dann soll die erste stelle gelöscht werden oder wenn nicht anders möglich die 5te.

Also langsam scheint bei mir der Groschen zu fallen:

Du möchtest jeden Eintrag mit jedem Eintrag vergleichen und alle die löschen, bei denen die 5., 7. und 9. Stelle übereinstimmen. Hab' ich's jetzt verstanden

[DeddyH]

Unter "doppeltem Eintrag" verstehe ich aber etwas anderes

[Ginko]

Ja genau also die Einträge sind nur an den bestimmten Stellen gleich.
also es sieht zB ein gleicher Eintrag so aus:
1) 0 1 1
4) 0 1 1
aber sollte es zu kompliziert sein werde ich es vielleicht erstmal versuchen es vor dem Eintrag abzufangen, wobei das sicher auch nicht viel einfacher geht.

[bernau]

Zitat von DeddyH:

Das geht aber einfacher mit Sorted auf true und Duplicates auf dupIgnore.

[edit] Kommando zurück, das gilt nur für TStringlist. [/edit]

Dann sollte doch folgendes gehen

Delphi-Quellcode:

var
  sl:TStriglist;
begin
  sl:=TStriglist.create;
  sl.duplicates:=dupIgnore;
  sl.assign(sllistbox0.Items);
  sllistbox0.Items.assign(sl);
  sl.free;
end;

Edit: Bei mir auch komando zurück. Habe den ersten Post zu schnell überflogen.