delphi 将一个整型数组按升序排序
谢谢
LZ的头像好妩媚啊
方法很多，看看数据结构或者网上down一个吧，常用快速排序法
快速排序：
procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
var
Lo, Hi, Mid, T: Integer;
begin
Lo := iLo;
Hi := iHi;
Mid := A[(Lo + Hi) div 2];
repeat
while A[Lo] < Mid do Inc(Lo);
while A[Hi] > Mid do Dec(Hi);
if Lo <= Hi then
begin
VisualSwap(A[Lo], A[Hi], Lo, Hi);
T := A[Lo];
A[Lo] := A[Hi];
A[Hi] := T;
Inc(Lo);
Dec(Hi);
end;
until Lo > Hi;
if Hi > iLo then QuickSort(A, iLo, Hi);
if Lo < iHi then QuickSort(A, Lo, iHi);
if Terminated then Exit;
end;
procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
var
Lo, Hi, Mid, T: Integer;
begin
Lo := iLo;
Hi := iHi;
Mid := A[(Lo + Hi) div 2];
相关问答：
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
部门缺一到两个Delphi开发人员,据说做Delphi和C++的都不好招,公司有意找外包人员.本人有点不太乐意,如果路过的朋友,自己需要跳槽或有朋友需要跳槽的,方便的话,可以发个站内短信,或加QQ 83039548,注明求职/推荐,谢谢. ......
各位帮个忙，请问用delphi怎么样远程连接服务器数据库，我连接本地的程序为什么有错？
adoquery1.ConnectionString:='Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User&nbs ......
有一个叫 Taking() 的procedure,
有二个按钮,
问题, 点第一个按钮的代码是调用Taking()的, 怎么才能点第二个按钮把Taking()终止或撤销
加个变量，做判断，为False时，E ......
先说说以前用asp查询的方法
down是一个表,分别有字段down_id,down_url,down_text
testdown是另一个表,分别有字段down_id,test_down_url
sql="select * from down order by down_count desc"
s ......
