易截截图软件、单文件、免安装、纯绿色、仅160KB

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];


相关问答:

ACCESS的自定义函数在delphi里怎么用呢...

我在模块里自定义了一个函数:stradd()

可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...

这个问题有什么办法可以解决的吗? 非常感激!


(在A ......

delphi内置的加密解密单元是哪个?

delphi内置的加密解密单元是哪个?
Delphi有内置加密解密单元?

delphi里有个加密和解密的单元

引用
delphi里有个加密和解密的单元


是哪个?

windows的api?

标准加密的源代码,网上 ......

[岗位]缺一到两个Delphi开发人员

部门缺一到两个Delphi开发人员,据说做Delphi和C++的都不好招,公司有意找外包人员.本人有点不太乐意,如果路过的朋友,自己需要跳槽或有朋友需要跳槽的,方便的话,可以发个站内短信,或加QQ 83039548,注明求职/推荐,谢谢. ......

delphi ado连接远程服务器数据库问题

各位帮个忙,请问用delphi怎么样远程连接服务器数据库,我连接本地的程序为什么有错?

adoquery1.ConnectionString:='Provider=SQLOLEDB.1;Password=;Persist  Security  Info=True;User&nbs ......

delphi操作数据库问题

先说说以前用asp查询的方法
down是一个表,分别有字段down_id,down_url,down_text
testdown是另一个表,分别有字段down_id,test_down_url
sql="select * from down order by down_count desc"
s ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号