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

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

单元：SysUtils

函数原型：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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 应用示例：

?

1 2 3 4 5 6 7 8 9 10

var   str1,str2: string;   b: Boolean; begin   str1 := 'Delphi';   str2 := 'delphi';     b:= SameText(str1, str2);  //True   不区分大小写   ShowMessage(BoolToStr(b,false) ); end;

　　

 

 

创建时间：2020.05.27　　更新时间：