Sortiern nach Datum (strings)

[xZise]

Ah mist In Java gibt es

Code:

while() {}

und

Code:

do {} while()

und beide berechen ab, wenn die Bedingungen nicht zutreffen. Bei Delphi war das ja anders

Habe den Code mal korrigiert.

MfG
Fabian

PS: Der Off-by-One-Error ist ja beschäment
PPS: Warum ist das jetzt nicht inline.... hmpf

[idefix2]

Noch immer nicht ganz. Es würde zwar so funktionieren, aber mit unnötigen Schleifendurchläufen.
Statt "and" gehört "or" in die Abbruchbedingung, wenn in einem Durchlauf keine Elemente vertauscht werden, ist das feld fertig sortiert.

[Amateurprofi]

Noch besser wäre es m.E. so
1) Am Anfang n nicht auf die Länge des Arrays stellen, sondern auf den höchsten Index.
2) Das Senken von n um 1 nicht am Ende der Repeat-Schleife ausführen, sondern am Anfang.
3) Die For-Schleife von 0 bis n laufen lassen.
4) Beim Until nur swaped abfragen. Die Abfrage, ob n einen bestimmten Grenzwert erreicht hat, ist bei dieser Konstruktion überflüssig.

Delphi-Quellcode:

function bubbleSort( A : array of <Datentyp> ) : array of <Datentyp>;
begin
  n := High(A);
  repeat
    n := n - 1;
    swaped := false;
    for i := 0 to n do
      if Compare(A[ i ], A[ i + 1 ]) > 0 then
      begin
        // A[i] und A[i + 1] vertauschen
        swaped := true;
      end
  until not swaped;
end;

[xZise]

Es geht hier ja eigentlich nicht um den besten Sortieralgorithmus (da kann man Mergesort, Quicksort oder Heapsort nehmen), sondern darum, dass er überhaupt erstmal sortiert.

Leider meldet sich der Threadersteller nicht mehr.

MfG
Fabian

[eragon123]

Danke für die Hilfe.
Ich habe jetzt erst einmal dieser Variante

Delphi-Quellcode:

function less (a,b: string): boolean;
begin
less := copy(a,7,2)+copy(a,4,2)+copy(a,1,2) < copy(b,7,2)+copy(b,4,2)+copy(b,1,2)
end;

genutzt. So schnell muss es nicht sein da nur maximal ca. 100 Datensätze sortiert werden müssen.

[Luckie]

So bald sich aber das Datumsformat ändert, funktioniert der Code nicht mehr!

[mkinzler]

Deshalb ist es ja auch keine gute Idee Datumswerte als Strings abzulegen

[xZise]

Zitat von eragon123:

Danke für die Hilfe.
Ich habe jetzt erst einmal dieser Variante

Delphi-Quellcode:

function less (a,b: string): boolean;
begin
less := copy(a,7,2)+copy(a,4,2)+copy(a,1,2) < copy(b,7,2)+copy(b,4,2)+copy(b,1,2)
end;

genutzt. So schnell muss es nicht sein da nur maximal ca. 100 Datensätze sortiert werden müssen.

Aber das ist doch keine Sortierung? Oder ging es dir eher darum, wie vergleiche ich zwei Strings miteinander?

MfG
Fabian

[idefix2]

Er ist bei seinem Sortierprogramm darüber gestolpert, dass er Datumswerte, die als Strings vorliegen, falsch vergleicht - und deshalb falsch sortiert.