Quicksort (Ausgabe)

[Markus K.]

...ich hab ma schnell was geschrieben, must du nur noch an deine Ausgabe anpassen.

Delphi-Quellcode:

procedure TForm1.QuickSort(links,rechts:integer);
var i,j,h1,h2: integer;
begin
  i:=links;
  j:=rechts;
  h1:=sort[(i+j) div 2];
  repeat
    while sort[i] < h1 do inc(i);
    while sort[j] > h1 do dec(j);
    if i<=j then
    begin
      h2:=sort[i];
      sort[i]:= sort[j];
      sort[j]:= h2;
      SGsortiert.Cells[i-1,1]:=inttostr(Sort[i]);
      SGsortiert.Cells[j-1,1]:=inttostr(Sort[j]);
      inc(i);
      dec(j);
    end;
  until i>j;
  if links<j then Quicksort(links,j);
  if i<rechts then Quicksort(i,rechts);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     ZahlenEinlesen;
     QuickSort(1,20);
end;

Tschüß Markus