SysUtils.CompareText的注释

两个字符串对象进行比较，忽略大小写，两个字符串缓冲区地址利用EAX和EDX两个寄存器传给该函数，字符串的长度用4个字节保存在缓冲区的前面，函数用EAX返回比较结果，结果为0表示相同。

function CompareText(const S1, S2: string): Integer; assembler;
asm
         PUSH    ESI ; 保存寄存器
        PUSH    EDI
        PUSH    EBX
        MOV    ESI,EAX ; EAX、EDX的值给ESI、EDI
        MOV    EDI,EDX
        OR      EAX,EAX ; 如果EAX不为0，则将EAX-地址中的值给EAX
        JE      @@
        MOV    EAX,[EAX-]
@@:    OR      EDX,EDX ; 如果EDX不为0，则将EDX-地址中的值给EDX
        JE      @@
        MOV    EDX,[EDX-]
@@:    MOV    ECX,EAX ; 将EAX的值给ECX
        CMP    ECX,EDX ; 将EAX和EDX中较小者给ECX（无符号数）
        JBE    @@
        MOV    ECX,EDX
@@:    CMP    ECX,ECX
@@:    REPE    CMPSB ; 按字节比较ESI、EDI指向的内存中的数据，比较的字节数为ECX，遇到不同的数据则停止比较
        JE      @@ ; 如果两者相同则跳转到@@标号处
        MOV    BL,BYTE PTR [ESI-] ; 取不同数据其中的一个给BL
        CMP    BL,'a' ; 如果BL是将小写字母则转换为大写字母
        JB      @@
        CMP    BL,'z'
        JA      @@
        SUB    BL,20H
@@:    MOV    BH,BYTE PTR [EDI-] ; 取不同数据中的另一个给BH
        CMP    BH,'a' ; 如果BH是将小写字母则转换为大写字母
        JB      @@
        CMP    BH,'z'
        JA      @@
        SUB    BH,20H
@@:    CMP    BL,BH ; 如果BL与BH相同则继续前面的比较
        JE      @@
        MOVZX  EAX,BL ; 将BL、BH的值给EAX、EDX
        MOVZX  EDX,BH
@@:    SUB    EAX,EDX ; 用EAX减去EDX
        POP    EBX ; 恢复寄存器
        POP    EDI
        POP    ESI
end;