Delphi常用系统函数 SysUtils单元

CompareText  比较两个字符串的大小，返回值为 -1 [ 当 a1<a2 时 ] 或 0 [ 当 a1=a2  时 ] 或 1 [当 a1>a2  时]

function CompareText(const a1, a2: string): Integer; 比较时，不区分大小写；

var
  a1,a2:string;
begin
  a1:= 'Hello';
  a2:= 'hello';
  ShowMessage(IntToStr(CompareText(a1,a2))); //结果等于0 不区分大小写
end;

　　

SameText：比较两个字符串是否相等 (不区分大小写)

function SameText(const S1, S2: string): Boolean; 

 1 var
 2   a1,a2:string;
 3 begin
 4   a1 := 'Hello';
 5   a2 := 'hello';
 6   if SameText(a1,a2) then
 7   begin
 8     ShowMessage('a1 = a2 , True');  //判断a1、a2是否相等（不区分大小）
 9   end else begin
10     ShowMessage('a1 <> a2, false');
11   end;
12 end;

 

 AnsiSameStr：比较两个字符串是否相等 (区分大小写)

function AnsiSameStr(const S1, S2: string): Boolean;

 1 var
 2   a1,a2:string;
 3 begin
 4   a1 := 'Hello';
 5   a2 := 'hello';
 6   if AnsiSameStr(a1,a2) then
 7   begin
 8     ShowMessage('a1 = a2 , True');
 9   end else begin
10     ShowMessage('a1 <> a2, false'); //判断a1、a2是否相等（区分大小写）
11   end;
12 end;

 

 

 

转载于:https://www.cnblogs.com/STEVEN-001/p/5783793.html