zugriffsverletzung bei adresse 004512F2

[rory fluegler]

sry...
@ Bernhard:ich hab in FormCreate nur randomize.
der fehler liegt wahrscheinlich hier:

Delphi-Quellcode:

procedure TForm1.QuickSort(l,r:Integer);
var i,j,Merke,Mitte: Integer;
begin
  i:= L;
  j:= R;
  Mitte:= Wert[(L+R)div 2];
  //vergleich
    while Wert[i]< Mitte do
    begin
      inc (i);
      counter_Vergleich:=counter_Vergleich+1;
    end;
    while Wert[j] > Mitte  do
    begin
      dec (j);
      counter_Vergleich:=counter_Vergleich+1;
    end;

    //tauschen
   if i<=j then
    repeat
      begin
        Merke:=Wert[i];
        Wert[i]:= Wert[j];
        Wert[j]:= Merke;
        inc (i);
        dec (j);
      end;
    until i > j;

   //Rekursion
   if L < j then
     Quicksort(L,j);
   if i < R then
     Quicksort(i,R)
   else break;