Delphi SysUtils-SameText 对比两个字符串是否相等

Delphi SameText 对比两个字符串是否相等（不区分大小写）

单元：SysUtils

函数原型：

function SameText(const S1, S2: string): Boolean; assembler;
asm
        CMP     EAX,EDX
        JZ      @1
        OR      EAX,EAX
        JZ      @2
        OR      EDX,EDX
        JZ      @3
        MOV     ECX,[EAX-4]
        CMP     ECX,[EDX-4]
        JNE     @3
        CALL    CompareText
        TEST    EAX,EAX
        JNZ     @3
@1:     MOV     AL,1
@2:     RET
@3:     XOR     EAX,EAX
end;　

返回值：相等返回True ，否则False；

 

Delphi 应用示例：

var
  str1,str2: string;
  b: Boolean;
begin
  str1 := 'Delphi';
  str2 := 'delphi';

  b:= SameText(str1, str2);  //True   不区分大小写
  ShowMessage(BoolToStr(b,false) );
end;

　　

 

 

创建时间：2020.05.27　　更新时间：