有偿征求排序函数的Delphi内嵌汇编（basm）代码

{====================================================================
3数排序(冒泡排序)
=====================================================================}
function GetThreeSort(bsg:array of integer): string;
var
i, j, n: integer;
begin
for i:=2 downto 0 do begin
for j:= 0 to i-1 do begin
if bsg[j]>bsg[j+1]then begin
n:=bsg[j];
bsg[j]:=bsg[j+1];
bsg[j+1]:=n;
end;
end;
end;
result:=IntToStr(bsg[0])+IntToStr(bsg[1])+IntToStr(bsg[2]);
end;

本人愿为提供代码（须能在D7中编译通过并返回正确的值）的大侠支付酬劳50元。绝不食言。
代码请发到:du_juan1980@tom.com

[此贴子已经被作者于2007-6-24 9:08:03编辑过]

function GetThreeSort(bsg:array of integer): string;
var
i, j, n: integer;
begin
for i:=2 downto 0 do begin
for j:= 0 to i-1 do begin
if bsg[j]>bsg[j+1]then begin
asm
mov eax, bsg[j]
xchg bsg[j+1], eax
mov bsg[j], eax
end;
end;
end;
end;
result:=IntToStr(bsg[0])+IntToStr(bsg[1])+IntToStr(bsg[2]);
end;
这算吗？呵呵

嘻嘻！谢谢您！可能是我没写清楚。我要的是整个函数的汇编代码。不仅仅是交换这1句。谢谢，请把循环、比较的部分补充一下。请发到我的邮箱并附上收款帐号。

我就是数组和循环这部分不会用汇编写。

[此贴子已经被作者于2007-6-24 8:51:50编辑过]

function GetThreeSort(bsg:array of Integer): String;
var
i, j, n: Integer;
asm
push edi
push esi

mov ebx, -1
mov i, ebx
mov j, ebx
mov n, ebx
@loop1:
inc i
mov j, ebx
@loop2:
inc j
mov eax, bsg[j]
cmp eax, bsg[j+1]
jbe @loop2
mov eax, bsg[j]
xchg bsg[j+1], eax
mov bsg[j], eax
cmp j, 20
jbe @loop2
cmp i, 20
jbe @loop1
pop esi
pop edi
end;
没装DELPHI，不知道对不

那么简单就有50块...

我都不打算收钱

^_^ 看得出, 否则你也不会把它发到论坛上了.

谢谢。等了两天，都快失去希望了。

function GetThreeSort(bsg:array of Integer): String;
var
i, j, n: Integer;
asm
push edi
push esi

mov ebx, -1
mov i, ebx
mov j, ebx
mov n, ebx
@loop1:
inc i
mov j, ebx
@loop2:
inc j
mov eax, bsg[j] // 在这报错：Access violation at address 0045210B in module
// 'Project1.exe'.Read of address 0025EC20
cmp eax, bsg[j+1]
jbe @loop2
mov eax, bsg[j]
xchg bsg[j+1], eax
mov bsg[j], eax
cmp j, 20
jbe @loop2
cmp i, 20
jbe @loop1
pop esi
pop edi
end;

咋回事呢？

[此贴子已经被作者于2007-6-27 23:37:52编辑过]