Doppelte Einträge in Array finden

[BungeeBug]

Hab ich schon , was aber keine Verbesserung bringt. Son bisschen Delphi kann ich ja auch :)

Also irgendwas ist da ganz gehörig flasch ... nur blick ich im mom nicht durch was ...

[Minz]

Ist doch vom Prinzip nicht schwierig:

Delphi-Quellcode:

for i:=low(Array) to high(array)-1 do begin
    for i2:=i+1 to high(array) do begin
        if Array[i]=Array[i2] then entferneEintrag; 
        //Achtung! die Länge des Arrays ist jetzt anders
        //müsste man prüfen, ob das irgendwo zum tragen kommt
        //hiermit findet man allerdings nur doppelte Einträge, nicht jedoch
        //dreifache oder nochmehrfache gleiche Einträge s.u.
    end;
end;

für mehr als doppeltfache gleich Einträge: (z.B. Array[1], [5] und [10] sind gleich)

Delphi-Quellcode:

for i:=low(Array) to high(array)-1 do begin
    for i2:=low(Array) to high(array) do begin
        if not (i=i2) then
           if Array[i]=Array[i2] then entferneEintrag; 
    end;
end;

[Minz]

Alternative wäre noch, dein Array nach einem schnellen
Sortieralgorithmus zu sortieren, so das du nur einmal durchlaufen musst und immer nur die benachbarten Elemente vergleichst.

Siehe Bubble-, Quick-, ...sort

[Pseudemys Nelsoni]

Zitat:

for i:=low(Array) to high(array)-1

wieso -1?

so wird das letzte item nie erreicht

eher:

Delphi-Quellcode:

for i:= low(Array) to high(array)

:thuimb:

[BungeeBug]

So langsam bekomm ich das Gefühl das das Problem woanders liegt als am sortiern. Es scheint egal was ich mache, es werden immer doppelte Datein (die es nicht gibt) öffter angezeigt als eigendlich Möglich.

[Neg]

Na, dann teste doch einfach die einzelnen Abschnitte deines Codes, ob sie so arbeiten wie sie sollen. :gruebel:

Eine Alternative zum Finden von doppelten Einträgen wäre noch die Einführung eines temporären Arrays. Diese Variante finde ich in sofern "schöner" als dass man sich dabei nicht in so vielen verschachtelten For-Schleifen verliert.

Delphi-Quellcode:

function IsInArray(Element: DeinTyp; ElementArray: Array of DeinTyp): boolean;
var i: integer;
begin
  for i:=0 to length(ElementArray)-1 do
  begin
    if DeineEqualsFunktion(Element, ElementArray[i]) then
    begin
      Result:=true;
      exit;
    end;
  end;

  Result:=false;
end;

procedure DeleteDoubleElements(var ElementArray: Array of DeinTyp);
var
i, iActualLength, iIndex: integer;
tmp: Array of DeinTyp;
begin
  iIndex:=0;
  iActualLength:=0;

  // Temp-Array initialisieren
  SetLength(tmp, Length(ElementArray));
  for i:=0 to length(tmp)-1 do
  begin
    tmp[i]:=[i]DeinInitialwert[/i];
  end;

  // Elemente nur einmalig nach tmp kopieren
  for i:=0 to length(ElementArray)-1 do
  begin
    if not IsInArray(ElementArray[i], tmp) then
    begin
      tmp[iIndex]:=ElementArray[i];
      inc(iIndex);
      inc(iActualLength);
    end;
  end;

  // Temp-Array nach ElementArray zurück kopieren
  SetLength(ElementArray, iActualLength);
  for i:=0 to iActualLength-1 do
  begin
    ElementArray[i]:=tmp[i];
  end;
end;

[Minz]

@Pseudemys

es muss -1 sein

weil die innere Schleife das letzte Element überpüft, während die äußere Schleife dabei auf dem vorletzten steht.

es wird dann das vorletzte u.a. mit dem letzten verglichen.

[BungeeBug]

Hi,

es geht ja darum das jedes Element mit jedem Verglichen wird. Egal ob es das erste oder das letzte ist.

[Minz]

Bungee für wen war das jetzt bestimmt?