汇编写的一些函数

function ASM_LengthStr(S:pchar):Integer;stdcall;   //得到字符串的长度
begin

  asm
    xor edx,edx
    mov ecx, S   //save address
    TEST ecx,ecx
    jz @@exit
  @@1:
    mov ah,[ecx]
    or ah,ah
    jz @@exit
    add ecx,1
    add edx,1
    jmp @@1
  @@exit:
    mov result,edx
    mov EAX,result

  end;

end;