Doppelte Einträge in Array finden

[BungeeBug]

Hi,

ich suche eine schnelle Möglichkeitkeit die Einträge in einem sehr Großen Array zuvergleichen.
Am Ende soll kein doppelter Eintrag mehr vorhanden sein. Hat da jmd. ein Stück Code oder kann man sowas schnell schreiben? Ich scheiter im mom immer daran das der erste gleiche Eintrag gefunden wird die darauf folegenden nicht mehr. Ich glaube das es an der Schleife liegt die ich dazu verwende. Ich find aber den Fehler nich ... mag an der grausamen Erkältung liegen ... wenns mir gleich einer zeigt hau ich mir wieder vor den Kopf.

Achso mit sehr groß mein ich 6000 - 7000 Einträge ...

[Luckie]

Was hälts du von der Idee mal deinen Code zu posten?

[BungeeBug]

Delphi-Quellcode:

// Gleiche Datein suchen
     FOR i := 0 TO High(MyHashArray) DO
      BEGIN
       j := 0;
       WHILE j <= High(MyHashArray) DO
        BEGIN
          // Sind die Eintrage die selben?
          IF i <> j THEN
           BEGIN
            IF MD5DigestCompare(MyHashArray[i],MyHashArray[j]) THEN // Vergleichen
             BEGIN
              Form1.CheckListBox1.Items.Add(Form1.ListBox1.Items[j]);
              // Doppelten Hashentfernen
               FOR k := j TO High(MyHashArray) DO // Folgende doppelte Einträge entfernen
                BEGIN
                 MyHashArray[k] := MyHashArray[k+1];
                END;
              // SetLength(MyHashArray,High(MyHashArray)-1); // <- E/A Fehler
              j := 0;
             END;
           END;
         inc(j);
        END;
       END;

Ich hab aber nich wirklich den Durchblick ... da kann auch sonst der ein oder ander Fehler drin sein.

[Matze]

Das da ein E/A Fehlöer kommt ist eigentlich logisch, da das Array ja eine bestimmte Länge hat, dessen Felder alle ausgefüllt sind.

[himitsu]

Und wie sieht es damit aus?

Delphi-Quellcode:

Var A: Array of irgendwas;
  I, I2, I3: Integer;

For I := High(A) - 1 downto 0 do
  For I2 := High(A) downto I + 1 do
    If A[I] = A[I2] Then Begin
      For I3 := I2 to High(A) - 1 do
        A[I3] := A[I3 + 1];
      SetLength(A, High(A));
    End;

Um das Array um einen Eintag zu kürzen:
SetLength(MyHashArray, High(MyHashArray)); Wenn bei dir nur noch ein Eintrag im Array ist:

Delphi-Quellcode:

SetLength(MyHashArray, High(MyHashArray) - 1);

{High(MyHashArray) = 0}
SetLength(MyHashArray, High(MyHashArray) - 1);
SetLength(MyHashArray, 0 - 1);
SetLength(MyHashArray, -1);

und -1 ist nicht möglich, also kommt ein Fehler...

[BungeeBug]

Zitat von Matze:

Das da ein E/A Fehlöer kommt ist eigentlich logisch, da das Array ja eine bestimmte Länge hat, dessen Felder alle ausgefüllt sind.

Wird wenn ich SetLength(); benutze das ganze Array überschrieben?

[himitsu]

nein

wenn du eine kleinere Größe angibst, als drin ist, dann werden die Letzten (x = alte Anzahl - neue Anzahl) Einträge gelöscht.

wenn du eine größere Größe angibst, als drin ist, dann werden x neue Eintgäge angehängt (x = neue Anzahl - alte Anzahl).

[edit]Nachtag im vorherigen Post]

[SirThornberry]

nein, werden nicht alle felder überschrieben bei setlength

[BungeeBug]

HI all,

ich hab den Code nun an meinen Angepasst nur funktioniert dieser leider nicht so wie wer soll.
Es werden von 5 Einträgen 3 als doppelt angezeigt, welche aber garnicht doppelt sein können.
Desweitergen bin ich fast sicher das der Code garnicht alle Einträge durchgeht da z.B.:

Code:

For I := High(A) - 1 downto 0 do

Den letzten Index einfach auslässt.

[Pseudemys Nelsoni]

machmal:

For I := High(A) downto 0 do
statt

For I := High(A) - 1 downto 0 do