EAccessViolation bei Bubblesort

[DeddyH]

Und so?

Delphi-Quellcode:

procedure SwapNoten(var a,b: TNoteneintrag);
var dummy: TNotenEintrag;
begin
  dummy := a;
  a := b;
  b := dummy;
end;

procedure BubbleSort(var List: Blg);
var
  done: boolean;
  i: integer;
begin
  repeat
    done := true;
      for i := Low(List) to High(List) - 1 do
      if List[i].Notenpunkte > List[i + 1].Notenpunkte then
      begin
        SwapNoten(List[i],List[i + 1]);
        done := false;
      end;
  until done;
end;