Delphi 中的字符串函- SysUtils 中的 Ansi 字符串函数（2
//对比字符串是不是一: 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;
📱 扫码关注公众号
扫描二维码关注我们，获取更多精彩内容
实时更新 · 干货满满