| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1568 人关注过本帖
标题:有偿征求排序函数的Delphi内嵌汇编(basm)代码
只看楼主 加入收藏
杜鹃
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-6-21
收藏
得分:0 
{====================================================================
3数排序
=====================================================================}
function ThreeNumSort(b, s, g: integer): string;
var
x, y, z: integer;
begin
asm
mov eax, b
mov edx, s
mov ecx, g
cmp eax, edx
jb @Else1
xchg eax, edx
jmp @Else1
@Else1:
cmp eax, ecx
jb @Else2
xchg eax, ecx
@Else2:
cmp edx, ecx
jb @ElseEnd
xchg edx, ecx
@ElseEnd:
mov x, eax
mov y, edx
mov z, ecx
end;
result:=IntToStr(x)+IntToStr(y)+IntToStr(z);
end;

我这样写就能通过,为啥用数组做参数就不行呢?
2007-06-28 00:32
菜鸟上路
Rank: 4
等 级:贵宾
威 望:14
帖 子:1120
专家分:0
注 册:2006-3-21
收藏
得分:0 
我也不太懂,看看改成引用成不?
function GetThreeSort(var bsg:array of Integer): String;

2007-06-28 10:02
杜鹃
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-6-21
收藏
得分:0 

不行,mov eax, bsg[j] 通不过。

2007-06-28 11:01
菜鸟上路
Rank: 4
等 级:贵宾
威 望:14
帖 子:1120
专家分:0
注 册:2006-3-21
收藏
得分:0 
哎,那就不知道了

2007-06-28 11:34
杜鹃
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-6-21
收藏
得分:0 

那也非常感谢。

2007-06-28 13:09
快速回复:有偿征求排序函数的Delphi内嵌汇编(basm)代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031352 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved