有一个数组 luck:array[1..30] of integer;
我想编程把luck[1]到luck[30]的值从大到小排列,该如何实现。
我想编程把luck[1]到luck[30]的值从大到小排列,该如何实现。
解决方案 »
- 如何编写???当DBGrid1中的焦点离开某一个单元格时,出现的事件?
- 如何在dbgrid的编辑模式下用代码设置当前行当前列中的文字内容?
- 求一SQL语句!解决马上结贴!
- 求Delphi6中文帮助文件
- 一个简单问题一百分很容易的哦(在线)
- 在线等待,马上解决,入者有分
- 老问题?! 唉~一直没解决呀!!! MDI+DLL的问题! 欢迎有同样问题的xdjm一起来研究
- 为什么服务器的执行总是串行的呢?如何改进? 才能并行执行???
- Delphi6 如何实现“中文姓名”叫号功能?
- 各位有没有用过Delphi6自带的安装制作系统,好象对中文的支持非常臭,我用的时候如果有中文的话居然成了一个四方框
- 以前用的是delphi6,想改用delphi7,不知道怎么样,是否可以升级?
- 如何实现分组广播???
var
luck:array[1..30] of integer
temp:integer;
begin
for i:=1 to 29 do
for j:=i+1 to 30 do
begin
if luck[i]<luck[j] then
begin
temp:=luck[i];luck[i]:=luck[j];luck[j]:=temp;
end; //if
end; // j
end;