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简单 哭
一个dll 和一个 指针函数调用 搞了我2礼拜 还是在我有delphi基础的情况下 哭
难度 比 delphi 高很多。继续努力学啊。
好像也并不比delphi难多少吧
主要代码 不直观了� ......
RT
用Delphi的越来越少了
三国要跳槽了？
是啊，马上不就到传说中的“金三银十”了吗？
引用
三国要跳槽了？
恩
去找李开复吧~~他正在招人呢？呵呵~~
招聘delphi工程师--工作地点：� ......
procedure ChangeProxy(Addr: string; Bypass, Enabled: Boolean);
var
Info: INTERNET_PROXY_INFO;
Reg : TRegistry;&nb ......
谁能给我一个判断邮箱是否合法的例子
多谢
提供些别的：
电子邮件地址的构成
电子邮件地址的格式是“USER@SERVER.COM”，由三部分组成。
第一部分“USER”代表用户信箱的帐号，对于同一个邮件接 ......
