Re: Listbox Einträge vergl., bei Doppelbelegung einen Lösche
Zitat:
|
Re: Listbox Einträge vergl., bei Doppelbelegung einen Lösche
Ohne mich selbst loben zu wollen finde ich meine Methode am Einfachsten ;)
|
Re: Listbox Einträge vergl., bei Doppelbelegung einen Lösche
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. |
Re: Listbox Einträge vergl., bei Doppelbelegung einen Lösche
Zitat:
Grundsätzlich wäre es auch (vielleicht) sinnvoller, die Doubletten gar nicht erst in die Listbox aufzunehmen. Also z.B. mit
Delphi-Quellcode:
zu gewährleisten dass keine doppelten Einträge hinein kommen.
with ListBox1.Items do
if IndexOf(~~)<0 then Add(~~ |
Re: Listbox Einträge vergl., bei Doppelbelegung einen Lösche
Das geht aber einfacher mit Sorted auf true und Duplicates auf dupIgnore.
[edit] Kommando zurück, das gilt nur für TStringlist. [/edit] |
Re: Listbox Einträge vergl., bei Doppelbelegung einen Lösche
Hallo,
Zitat:
Deine Methode berücksichtig bisher noch nicht, dass beim Vergleich nur das 5. ,7. und 9. Zeichen der Einträge berücksichtigt werden sollen. :( |
Re: Listbox Einträge vergl., bei Doppelbelegung einen Lösche
Hallo,
Zitat:
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 :?: |
Re: Listbox Einträge vergl., bei Doppelbelegung einen Lösche
Unter "doppeltem Eintrag" verstehe ich aber etwas anderes :?
|
Re: Listbox Einträge vergl., bei Doppelbelegung einen Lösche
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. |
Re: Listbox Einträge vergl., bei Doppelbelegung einen Lösche
Zitat:
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. ;-) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:14 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz