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  更新时间:

 

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

上一篇:drf 中集成swgger api功能文档


下一篇:APIView 简单接口编写