标题:有偿征求排序函数的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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-149769-1-1.html




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

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