Delphi嵌入式汇编一例
作者:admin 日期:2008-06-27
用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
function toulong(x: pchar): longword;
begin
result := (longword(x^) shl 24) or
(longword((x + 1)^) shl 16) or
(longword((x + 2)^) shl 8) or
Tags: Delphi嵌入式汇编一例
