Array sortieren

[Neutral General]

Wenn mich nicht alles täuscht müsste es so funktionieren:

if ArrAngKps[j].CrtDatum > ArrAngKps[j + 1].CrtDatum then // if ArrAngKps[J].CrtDatum statt if ArrAngKps[I].CrtDatum

[himitsu]

Joar, erstmal die falsche Variable, was dem ersten Punkt entspricht.

Zitat:

* das Sortieren des Arrays (das Tauschen/Verschieben der Items)

Und dann noch der zweite Punkt. (wenn Punkt 1 dann erstmal mit einem Kriterium funktioniert, den Vergleich entsprechend erweitern)

Zitat:

* das Vergleichen zweier Items?
** Hier zuerst das Hauptkriterium (Datum) vergleichen und "nur" wenn das gleich ist, dann jeweils das nächste Kriterium (Kunde, Nummer, ...) vergleichen, und sozusagen jeweils den ersten Unterschied zum Sortieren verwenden.

[michael.cohrs]

das habe ich in dem ersten Beispiel versucht ( if ArrAngKps[j].CrtDatum > ArrAngKps[j + 1].CrtDatum then)

[himitsu]

In Projektoptionen bitte mal Indexprüfung aktivieren.

Zitat:

Delphi-Quellcode:

for i := low(ArrAngKps) to Pred(high(ArrAngKps)) do
  for j := succ(i) to high(ArrAngKps) do
    if ArrAngKps[j].CrtDatum > ArrAngKps[j + 1].CrtDatum then

j := ... to high(ArrAngKps) und ArrAngKps[j + 1] muß zwangsläufig knallen.
High+1 ist nicht mehr im Array drin.


Außerdem vergleichst du dort J mit J+1, aber tauschst I mit J.
Und im zweiten Versuch verlgichst du I mit J, aber tauschst J mit J+1.
Man sollte da natürlich nur das tauschen, was vorher auch verglichen wurde, da sonst das Vergleichsergebnis nicht unbedingt zu den getauschten Items passt.

[michael.cohrs]

Ich versteh nichts mehr.....könnte mir bitte jemand für das Beispiel einen funktionierenden CodeSnipsel senden?

[nahpets]

Delphi-Quellcode:

  for i := low(ArrAngKps) to Pred(high(ArrAngKps)) do
    for j := succ(i) to high(ArrAngKps) do
      if ArrAngKps[j].CrtDatum > ArrAngKps[j + 1].CrtDatum // wenn j = high(ArrAngKps) ist, gibt es j + 1 nicht.
      then
      Begin
        TmpAng := ArrAngKps[i];
        ArrAngKps[i] := ArrAngKps[j];
        ArrAngKps[j] := TmpAng;
      end;

  for i := 0 to length(ArrAngKps) - 1 do
  Begin
    for j := 0 to length(ArrAngKps) - 2 do
    begin
      if ArrAngKps[i].CrtDatum > ArrAngKps[j + 1].CrtDatum then
      Begin
        // Warum j und j + 1 tauschen, wenn i und j + 1 verglichen wurden?
        TmpAng := ArrAngKps[j];
        ArrAngKps[j] := ArrAngKps[j + 1];
        ArrAngKps[j + 1] := TmpAng;
      end;
    end;
  end;

[freimatz]

Zitat von michael.cohrs:

Ich versteh nichts mehr.....könnte mir bitte jemand für das Beispiel einen funktionierenden CodeSnipsel senden?

Hm, bin ich jetzt blind? Was ist mit dem Beispiel von Uwe?

[Aviator]

Zitat von freimatz:

Zitat von michael.cohrs:

Ich versteh nichts mehr.....könnte mir bitte jemand für das Beispiel einen funktionierenden CodeSnipsel senden?

Hm, bin ich jetzt blind? Was ist mit dem Beispiel von Uwe?

Er benutzt Delphi 6. Da funktioniert das Beispiel von Uwe nicht. Stichwort Generics und bspw. TArray.

Er könnte das evtl. auf sich anpassen, aber da habe ich zu wenig Ahnung von Delphi 6 was damit möglich ist.

[freimatz]

Ah da "ich muss leider Delphi 6 nutzen". Dann ist das Beispiel von Uwe unbrauchbar. Das anpassen ist extrem schwierig meine ich.
Mehr Kommentare verkneif ich mir jetzt, sonst bekomme ich wieder eines aufs Dach.