求排序函数的内嵌汇编代码
求下面3数排序函数的内嵌汇编(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;