Delphi嵌入式汇编一例

　2006-02-04 13:26:11　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姇閻忔氨鈧凹鍓熷娲垂椤曞懎鍓伴梺閫炲苯澧紒澶婄秺瀵濡歌閸嬫捇妫冨☉娆忔殘闂佷紮缍€娴滎剟鍩€椤掑倹鏆柛瀣躬瀹曚即寮借閺嗭箓鏌ㄩ悤鍌涘

核心提示：用delphi写的程序，把x指针指向的4个字节次序颠倒过来：function toulong(x: pchar): longWord;beginresult := (longword(x^) shl 24) or(longword((x + 1)^) shl 16) or(longword((x + 2)^) shl

用delphi写的程序，把x指针指向的4个字节次序颠倒过来：
function toulong(x: pchar): longWord;
begin
　result := (longword(x^) shl 24) or
　　(longword((x + 1)^) shl 16) or
　　(longword((x + 2)^) shl 8) or
　　(longword((x + 3)^));
end;

以下是用delphi的嵌入式汇编写法：
function toulong(x: pchar): longword;
asm
　mov esi,eax
　mov ax,[esi]
　xchg ah,al
　shl eax,16
　mov ax,[esi+2]
　xchg ah,al
end;

说明：默认情况下，delphi使用“register”方式，若参数在3个已内，
将分别使用eax、edx和ecx，超过3个参数部分将使用堆栈。返回参数的
存放视长度而定，例如8位用al返回，16位用ax，32位用eax，64位用用两个
32位寄存器edx:eax，其中eax是低位。

效率：本例asm大约比delphi或c快50%。