Listboxen vergleichen

[Captnemo]

Zitat von Popov:

Zitat von Captnemo:

das "downto" würde ich diese Stelle verwenden, weil ...

Auch wenn es die Höflichkeit gebietet in der Kommunikation immer die Ich-Form zu wählen um den Gegenüber nicht vor den Kopf zu stoßen, wie z. B. "würde ich", ändert es nichts daran, dass hier ein "musst du" angebracht ist, denn es gibt nur die eine Variante. Alles andere führt zum Knall

Naja, rein theoretisch kann er ja auch die Items erst einmal in einer weiter StringList speichern, um später damit zu arbeiten, und die Elemente in den ListBoxen noch so lassen. In dem Fall wäre es egal. Ich habe das ganze halt nur der Form halber erläutert.

[Popov]

... kleiner Fehler. Code mal kurz entfernt...

@Captnemo

War ja keine Kritik.

[Captnemo]

Zitat von Paulh:

Habe es jetzt mit einer 3. Listbox versucht und es kommt aber immer noch ein mischmasch raus

Delphi-Quellcode:

for i := Listbox1.items.count-1 downto 0 do begin
  if NOT (Listbox2.items.indexof(Listbox1.items[i])=-1) then begin
    //if DeleteFile(Listbox1.items[i]) then
      Listbox3.Items.Add(Listbox2.Items[i]);
  end;
end;

Was kommt den raus?
Normalerweise müssten jetzt in listbox3 alle Elemente auftauchen, die sowohl in Listbox1 als auch in Listbox2 sind.
Denk aber daran, dass auch groß und kleinschreibung unterschieden wird. Ggf. noch ein lowercase() einbauen.

[Paulh]

Ich grübe grade darüber nach was ich von den 3 Mengenoperationen verwenden muss, aber ich denke,
wenn ich
DifferenceStrings(Listbox2.Items,Listbox1.Items,Listbox3.Items) nehmen würde müsste es doch gehen oder ?

[Captnemo]

Zitat von Popov:

Delphi-Quellcode:

for i := Listbox1.items.count-1 downto 0 do 
begin

  if Listbox2.items.indexof(Listbox1.items[i]) = -1 then 
    Listbox2.Items.Delete(i);

end;

Genau hier ist ja das downto nicht zwingend notwendig, weil du die Elemente ja nicht in ListBox1 löscht.

Okay, aber am ende kommt ja alles auf das gleiche raus.

[Paulh]

Okey jetzt gehts, O.o komisch...

Aber danke an alle !
..war schon wieder am verzweifeln..

[Captnemo]

Zitat von Paulh:

Ich grübe grade darüber nach was ich von den 3 Mengenoperationen verwenden muss, aber ich denke,
wenn ich
DifferenceStrings(Listbox2.Items,Listbox1.Items,Listbox3.Items) nehmen würde müsste es doch gehen oder ?

Also ganz ehrlich. Ich würde an deiner Stelle jetzt nicht den Code aus DifferenceStrings kopieren.

Die von dir gestellt Aufgabe ist so einfach, dass du dir selbst einen Gefallen tust, wenn diesen zweizeiler selber entwirfst, und am ende auch verstehst, wo wie ich und popov es dir vorgeschlagen haben.

[Paulh]

Ja,okey habe aber auch schon lange nichts mehr mit Delphi gemacht...

Habs jetzt auch so hin bekommen.

[Captnemo]

Ja, manchmal beißt man sich an einfachsten Sachen fest. Kein Problem.

[sx2008]

Zitat von Captnemo:

Und was ist jetzt daran einfacher?

Man braucht nur eine Prozedur (getestet und wiederverwendbar) aufrufen anstatt unschönen Code einzubauen.
Mit "unschön" meine ich jetzt z.B. das fehlende BeginUpdate/EndUpdate.
Unschön ist natürlich auch keine Unter-Funktion/Prozedure zu verwenden.