array mit records sortieren

[.morpheus]

hallo freunde!

ich habe eine reccord namens mannschaften und nöchti dies nach pkt sortieren

Delphi-Quellcode:

for i := 1 to 7 do
       begin
        if mannschaft[i].pkt > mannschaft[(i+1)].pkt then
          begin
            Hilfe := mannschaft[i];
            mannschaft[i] := mannschaft[i+1];
            mannschaft[(i+1)] := Hilfe;
          end;

so habe ich es probier doch da kam immer eine Zugriffsverletzung

kann mier jemand helfen??????????

bitte ich bin am verzweifeln

thx morepheus

[sakura]

für kleine Datenmengen wäre der Bubblesort geeignet:

Delphi-Quellcode:

  for i := Low(mannschaft) to Pred(High(mannschaft)) do
    for j := Succ(i) to High(mannschaft) do
      if mannschaft[i].pkt > mannschaft[j].pkt then
      begin
        Hilfe := mannschaft[i];
        mannschaft[i] := mannschaft[j];
        mannschaft[j] := Hilfe;
      end;

...:cat:...