Question

delphi的快速排序算法

我写了个delphi的快速排序算法，大家看看有什么问题

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure quicksort(a:array of integer;left,right:integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
const a:array[0..5] of integer=(9,2,1,5,8,6);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
a:=quicksort(a,0,5);
for i:=0 to 5 do begin
memo1.Lines.Add(inttostr(a[i]));
end;
end;

procedure TForm1.quicksort(a:array of integer;left,right:integer);
var
i,j,povit :Integer;
begin
i := left;
j := right;
povit := a[i];
if(i<j) then begin
while(i<j) do begin
while((i<j) and (a[j]>=povit)) do
dec(j);
if(i<j) then begin
a[i]:=a[j];
inc(i);
end;
while((i<j) and (a[i]<=povit)) do
inc(i);
if(i<j) then begin
a[j]:=a[i];
dec(j);
end;
end;
a[i]:=povit;
quicksort(a,left,i-1);
quicksort(a,i+1,right);
end;
end;

end.
多谢各位的回答，程序已实现，但我想请问一下，申明时，加var和不加var有什么区别，有var相关的使用说明吗

Answer 1

先不看快速排序算法的正确与否，首先要明确固定数组和动态数组不是一种东西，其次是a被定义在const中，是否还允许改变而不出编译警告，也需要调整编译参数才能做到，还是先定义为动态数组变量，SetLength(a,6)确定长度，然后再麻烦地一一赋值后试试排序效果吧。

你这个快速排序的算法不知从哪里参考而来，像是从C语言等翻译过来的，其实，Classes.pas中就有一个TStringList.QuickSort，和你这个最大的区别在于只有一处递归调用，而且pascal风格更加明显，可供学习。

Answer 2

普通变量都是传值调用，对过程的赋值只在过程中起作用，出过程后的值不变；
变量前加var说明变量值在过程中可修改，修改后原来的值也改变，类似于C语言中的传址调用。
过程声明时变量 a 前面 加 var.
procedure quicksort(var a:array of integer;left,right:integer);
另a:=quicksort(a,0,5);错误，改为quicksort(a,0,5);

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure quicksort(var a:array of integer;left,right:integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
const a:array[0..5] of integer=(9,2,1,5,8,6);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
quicksort(a,0,5);
for i:=0 to 5 do begin
memo1.Lines.Add(inttostr(a[i]));
end;
end;

procedure TForm1.quicksort(var a:array of integer;left,right:integer);
var
i,j,povit :Integer;
begin
i := left;
j := right;
povit := a[i];
if(i<j) then begin
while(i<j) do begin
while((i<j) and (a[j]>=povit)) do
dec(j);
if(i<j) then begin
a[i]:=a[j];
inc(i);
end;
while((i<j) and (a[i]<=povit)) do
inc(i);
if(i<j) then begin
a[j]:=a[i];
dec(j);
end;
end;
a[i]:=povit;
quicksort(a,left,i-1);
quicksort(a,i+1,right);
end;
end;

end.

Answer 3

参见tstringlist.sort