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; 

var
  a1,a2:string;
begin
  a1 := 'Hello';
  a2 := 'hello';
  if SameText(a1,a2) then
  begin
    ShowMessage('a1 = a2 , True');  //判断a1、a2是否相等（不区分大小）
  end else begin
    ShowMessage('a1 <> a2, false');
  end;
end;

 

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

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

var
  a1,a2:string;
begin
  a1 := 'Hello';
  a2 := 'hello';
  if AnsiSameStr(a1,a2) then
  begin
    ShowMessage('a1 = a2 , True');
  end else begin
    ShowMessage('a1 <> a2, false'); //判断a1、a2是否相等（区分大小写）
  end;
end;