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];
相关问答：
delphi内置的加密解密单元是哪个？
Delphi有内置加密解密单元？
delphi里有个加密和解密的单元
引用
delphi里有个加密和解密的单元
是哪个？
windows的api？
标准加密的源代码，网上 ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
RT
用Delphi的越来越少了
三国要跳槽了？
是啊，马上不就到传说中的“金三银十”了吗？
引用
三国要跳槽了？
恩
去找李开复吧~~他正在招人呢？呵呵~~
招聘delphi工程师--工作地点：� ......
有一个叫 Taking() 的procedure,
有二个按钮,
问题, 点第一个按钮的代码是调用Taking()的, 怎么才能点第二个按钮把Taking()终止或撤销
加个变量，做判断，为False时，E ......
