Delphi 中的字符串函数(5) - SysUtils 中的 Ansi 字符串函数

//对比字符串是不是一样: AnsiSameStr、AnsiSameText
var
  ss,s: AnsiString;
  b: Boolean;
begin
  ss := 'abc';
  s := 'ABC';

  b := AnsiSameStr(ss,s);    {区分大小写}
  ShowMessage(BoolToStr(b)); {False}

  b := AnsiSameText(ss,s);   {不区分大小写}
  ShowMessage(BoolToStr(b)); {True}
end;

 
 
 
 
 

 

 
  

//比较两个字符串大小: AnsiCompareStr、AnsiCompareText
var
  s1,s2: AnsiString;
  i: Integer;
begin
  s1 := 'Hello';
  s2 := 'hello';

  i := AnsiCompareStr(s1,s2);  {区分大小写}
  ShowMessage(IntToStr(i));    {1}

  i := AnsiCompareText(s1,s2); {不区分大小写}
  ShowMessage(IntToStr(i));    {0}

{有 3 种可能的返回值:
  s1 > s2 : 1
  s1 < s2 : -1
  s1 = s2 : 0
}
end;

 
 
 
 
 

 

 
  

//比较两个文件名大小: AnsiCompareFileName
var
  s1,s2: AnsiString;
  i: Integer;
begin
  s1 := 'c:\temp\2.txt';
  s2 := 'c:\temp\1.TXT';

  i := AnsiCompareFileName(s1,s2);
  ShowMessage(IntToStr(i));   {1}

{有 3 种可能的返回值:
  s1 > s2 : 1
  s1 < s2 : -1
  s1 = s2 : 0
}
end;

 
 
 
 
 

 

 
  

//大小写转换: AnsiUpperCase、AnsiLowerCase
var
  ss,s: AnsiString;
begin
  ss := 'Hello';

  s := AnsiUpperCase(ss);
  ShowMessage(s); {HELLO}

  s := AnsiLowerCase(ss);
  ShowMessage(s); {hello}
end;

 
 
 
 
 

 

 
  

//文件名大小写转换: AnsiUpperCaseFileName、AnsiLowerCaseFileName
var
  ss,s: AnsiString;
begin
  ss := 'C:\Temp\1.txt';

  s := AnsiUpperCaseFileName(ss);
  ShowMessage(s); {C:\TEMP\1.TXT}

  s := AnsiLowerCaseFileName(ss);
  ShowMessage(s); {c:\temp\1.txt}
end;

 
 
 
 
 

 

 
  

//查找一个字符串在另一个字符串中最先出现的位置: AnsiPos
var
  ss,s: AnsiString;
  i: Integer;
begin
  ss := 'abcdefgcd';
  s := 'cd';

  i := AnsiPos(s,ss);
  ShowMessage(IntToStr(i)); {3}
end;

 
 
 
 
 

 

 
  

//添加定界符: AnsiQuotedStr
var
  ss,s: AnsiString;
begin
  ss := 'Hello';

  s := AnsiQuotedStr(ss, '"'); {参数2是定界符, Char 类型}
  ShowMessage(s);              {"Hello"}

  s := AnsiQuotedStr(ss, '#');
  ShowMessage(s);              {#Hello#}

  ss := 'Hello#Hello';         {如果中间包含要添加的定界符, 将被双写}
  s := AnsiQuotedStr(ss, '#');
  ShowMessage(s);              {#Hello##Hello#}
end;

 
 
 
 
 

 

 
  

//取消字符串两边的定界符: AnsiDequotedStr
var
  ss,s: AnsiString;
begin
  ss := '"Hello"';

  s := AnsiDequotedStr(ss, '"');
  ShowMessage(s); {Hello}
end;