Array sortieren

[michael.cohrs]

Hallo und Danke für die Antworten,


folgende Lösungsansätze habe ich versuche:

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
      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
        TmpAng           := ArrAngKps[j];
        ArrAngKps[j]     := ArrAngKps[j + 1];
        ArrAngKps[j + 1] := TmpAng;
      end;
    end;
  end;

aber das Array wird nicht sortiert

ich muss leider Delphi 6 nutzen