doppelte einträge löschen

[Remote1]

irgend wie hab ich nen totales brett vorm kopf

ich kreig immer die fehlermeldung:
"list index out of bounds (xx)"

hir die procedure

Delphi-Quellcode:

procedure TForm1.double_delClick(Sender: TObject);
var i,k:integer;
begin
if listbox1.Count>0 then
  for i:=0 to listbox1.Count-2 do
    for k:=i+1 to listbox1.count-1 do
       if listbox1.Items.Strings[i]=listbox1.Items.Strings[k]
         then listbox1.Items.Delete(k);
end;

das problem liegt irgendwo bei k, zumindest meldet sich da der compiler
wenn ich aber mir die werte und strings in einer showmessage() anzeigen lasse, dann kommt keine fehlermeldung und alles klappt wie es soll (hatte da natürlich den vergleich herausgenommen)

[MarcoWarm]

ListBox.Count wird nur einmal am Anfang der Schleife abgefragt.
Wenn Du also einen Eintrag löscht, wird i> als der aktuelle ListBox.Count werden.

Abhilfe:

Delphi-Quellcode:

while not i>ListBox.Count-1 do
begin

end;

Ciao

Marco

[lordcroc]

hi,

oder geh einfach die Listbox von hinten nach vorne durch.

mfg
lordcroc

[himitsu]

Ist ja auch richtig so. Wenn du was löschst, dann wird ja die Liste kürzer und irgendwann kommst du halt übers Ende hinaus.

Delphi-Quellcode:

Procedure TForm1.double_delClick(Sender: TObject);
  Var i, k: Integer;

  Begin
    For i := ListBox1.Count - 1 downto 1 do
      For k := i - 1 down 0 do
        If ListBox1.Items.Strings[i] = ListBox1.Items.Strings[k] Then
          ListBox1.Items.Delete(k);
  End;

In solchen Fällen kommst du besser, wenn du rückwärts Wählen lässt, oder eine Andere Art von Schleife verwendest.

Delphi-Quellcode:

Procedure TForm1.double_delClick(Sender: TObject);
  Var i, k: Integer;

  Begin
    i := 0;
    While i < ListBox1.Count do Begin
      k := 0;
      While k < ListBox1.Count do
        If ListBox1.Items.Strings[i] = ListBox1.Items.Strings[k] Then
          ListBox1.Items.Delete(k) Else Inc(k);
      Inc(i);
    End;
  End;

[Remote1]

habs jetzt so:

Delphi-Quellcode:

procedure TForm1.double_delClick(Sender: TObject);
var i,k:integer;
begin
i := 0;
While i < ListBox1.Count do
 Begin
   k := i+1;
   While k < ListBox1.Count do
     If ListBox1.Items.Strings[i] = ListBox1.Items.Strings[k]
      Then ListBox1.Items.Delete(k)
      Else Inc(k);
   Inc(i);
 End;
End;

rückwärts kam auch immer ein fehler
danke für die hilfe!!!!!

[himitsu]

Gut, dann hier nochmal die funktionierenden Varianten im Überblick.
Damit diese zumindestens Anderen zur Verfügung stehen und sie sich nicht durch alle probieren müssen. ^^

Delphi-Quellcode:

Procedure TForm1.double_delClick(Sender: TObject);
  Var i, k: Integer;

  Begin
    For i := ListBox1.Count - 2 downto 0 do
      For k := ListBox1.Count - 1 downto i + 1 do
        If ListBox1.Items.Strings[i] = ListBox1.Items.Strings[k] Then
          ListBox1.Items.Delete(k);
  End;

Delphi-Quellcode:

Procedure TForm1.double_delClick(Sender: TObject);
  Var i, k: Integer;

  Begin
    i := 0;
    While i < ListBox1.Count - 2 do Begin
      k := i + 1;
      While k < ListBox1.Count do
        If ListBox1.Items.Strings[i] = ListBox1.Items.Strings[k] Then
          ListBox1.Items.Delete(k) Else Inc(k);
      Inc(i);
    End;
  End;

[roderich]

Marco hat geschrieben

Zitat:

while not i>ListBox.Count-1 do
begin

end;

hi Marco, das ist gefährlich, weil der Compiler zuerst das binäre "not i" berechnet.
not 5 ist z.B. -6.

Also lieber klammern
not (i>ListBox.Count-1) oder besser
(i<=ListBox.Count-1) oder noch besser downto verwenden.

Roderich