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　　更新時間：