Быстрая сортировка

var  Arr: array[0..7] of integer = (1, 5, 4, 2, 6, 3, 7, 8);
...
procedure QuickSort(var A: array of integer; Lo, Hi: integer);
var l, r, p, tmp: integer;
begin
 l := Lo;
 r := Hi;
 p := A[(l + r) div 2];
 repeat
   while A[l] < p do inc(l);
   while A[r] > p do dec(r);
   if l <= r
    then begin
          if A[l] > A[r]
           then begin
                 tmp := A[l]; A[l] := A[r]; A[r] := tmp;
                  end;
          inc(l);
          dec(r);
         end;
 until l >= r;
 if Lo < r then QuickSort(A, Lo, r);
 if l < Hi then QuickSort(A, l, Hi);
end;
 
//Пример вызова
QuickSort(Arr, Low(Arr), High(Arr));

procedure TForm1.btn1Click(Sender: TObject);
begin
  a:=strtoint(Form1.edt1.Text);
  Form1.strngrd1.colcount:=a;
 
  begin
    for i:=0 to a do
    Form1.strngrd1.cells[i,0]:=inttostr(Random(100));
 
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var i: integer;
     A: array of integer;
begin
 SetLength(A, StrToInt(Edit1.Text));
 strngrd1.colcount := StrToInt(Edit1.Text);
 for i := 0 to High(A) do
  begin
   A[i] := Random(100);    
  strngrd1.cells[i,0] := IntToStr(A[i]);
  end;
end;

//-----------------------------------------------------
//       Быстрая сортировка массивов структур
//
//       p   - Указатель на структуру
//       size - Размер структуры
//       imin - Минимальный индекс
//       imax - Максимальный индекс
//       Comp - функция сравнения пользователя, возвращает 1, если первый элемент больше второго больше, -1 меньше, 0 равно
//
// Пример:   type TStr=record
//                     ee:integer;
//                     es:string;
//                     val:Extended;
//                     bv:byte;
//                     iv:integer;
//                     sv:string;
//                     rv:double;
//                     end;
//           var te:array [0..10] of TStr;
//           var p:pByte;
//           ...............................
//  type   CompFunction = function(i1,i2:integer):integer;
//           ...............................
//           function Comp(i1,i2:integer):integer;
//           begin
//           if te[i1].val>te[i2].val then Result:=1
//              else if te[i1].val<te[i2].val then Result:=-1 else Result:=0;
//           end;
//           ...............................
//           p:=@te[0];
//           qSort(p,sizeof(TStr),0,10,Comp);  //---Сортировка по val
//
procedure qSort(p:pByte;size,imin,imax:integer;Comp:CompFunction);
var i,j,m:integer;
pp1,pp2:pByte;
tmp:pByte;
begin
i:=imin;j:=imax;
m:=imax-((imax-imin) div 2);
while i<j do
   begin
   while (Comp(i,m)<0) do inc(i);
   while (Comp(j,m)>0) do dec(j);
   if i<=j then
      begin
      tmp:=GetMemory(size);
      pp1:=p;inc(pp1,i*size);
      pp2:=p;inc(pp2,j*size);
      Move(&pp1[0],&tmp[0],size);
      Move(&pp2[0],&pp1[0],size);
      Move(&tmp[0],&pp2[0],size);
      FreeMemory(tmp);
      inc(i);dec(j);
      end;
   end;
if imin<j then qSort(p,size,imin,j,Comp);
if i<imax then qSort(p,size,i,imax,Comp);
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    edt1: TEdit;
    lbl1: TLabel;
    btn1: TButton;
    Button1: TButton;
    strngrd1: TStringGrid;
    strngrd2: TStringGrid;
    lbl2: TLabel;
    lbl3: TLabel;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
 
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
 
procedure TForm1.btn1Click(Sender: TObject);
var
i:integer;
begin
strngrd1.colcount:=StrToInt(Edt1.Text);
strngrd2.ColCount:=strngrd1.colcount;
randomize;
for i:=0 to strngrd1.colcount-1 do
strngrd1.cells[i,0]:=inttostr(Random(100));
end;
 
 
procedure quicksort(d:boolean);
var
i,j,c:integer;
a:array of integer;
procedure xchg;
begin
c:=a[j];
a[j]:=a[j+1];
a[j+1]:=c;
end;
begin
with form1 do
begin
setlength(a,strngrd1.ColCount);
for i:=0 to strngrd1.ColCount-1 do
a[i]:=strtoint(strngrd1.cells[i,0]);
for i:=0 to strngrd1.ColCount-1 do
for j:=0 to strngrd1.ColCount-2 do
if d then
begin
if a[j]<a[j+1] then
xchg;
end
else
begin
if a[j]>a[j+1] then
xchg;
end;
for i:=0 to length(a)-1 do
strngrd2.cells[i,0]:=inttostr(a[i]);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
QuickSort(false);
end;
 
 
 
procedure TForm1.btn2Click(Sender: TObject);
begin
QuickSort(true);
end;
 
end.