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-4地址中的值给EAX 
        JE      @@0 
        MOV    EAX,[EAX-4] 
@@0:    OR      EDX,EDX ; //如果EDX不为0，则将EDX-4地址中的值给EDX 
        JE      @@1 
        MOV    EDX,[EDX-4] 
@@1:    MOV    ECX,EAX ; //将EAX的值给ECX 
        CMP    ECX,EDX ; //将EAX和EDX中较小者给ECX（无符号数） 
        JBE    @@2 
        MOV    ECX,EDX 
@@2:    CMP    ECX,ECX 
@@3:    REPE    CMPSB ; //按字节比较ESI、EDI指向的内存中的数据，比较的字节数为ECX，遇到不同的数据则停止比较 
        JE      @@6 ; //如果两者相同则跳转到@@6标号处 
        MOV    BL,BYTE PTR [ESI-1] ; //取不同数据其中的一个给BL 
        CMP    BL,‘a‘ ; //如果BL是将小写字母则转换为大写字母 
        JB      @@4 
        CMP    BL,‘z‘ 
        JA      @@4 
        SUB    BL,20H 
@@4:    MOV    BH,BYTE PTR [EDI-1] ; //取不同数据中的另一个给BH 
        CMP    BH,‘a‘ ; //如果BH是将小写字母则转换为大写字母 
        JB      @@5 
        CMP    BH,‘z‘ 
        JA      @@5 
        SUB    BH,20H 
@@5:    CMP    BL,BH ; //如果BL与BH相同则继续前面的比较 
        JE      @@3 
        MOVZX  EAX,BL ; //将BL、BH的值给EAX、EDX 
        MOVZX  EDX,BH 
@@6:    SUB    EAX,EDX ; //用EAX减去EDX 
        POP    EBX ; //恢复寄存器 
        POP    EDI 
        POP    ESI
end;

function AnsiCompareText(const S1, S2: string): Integer;
begin
{$IFDEF MSWINDOWS}
  Result := CompareString(LOCALE_USER_DEFAULT, NORM_IGNORECASE, PChar(S1),
    Length(S1), PChar(S2), Length(S2)) - 2;
{$ENDIF}
{$IFDEF LINUX}
  Result := WideCompareText(S1, S2);
{$ENDIF}
end;