//對比字符串是不是一樣: AnsiSameStr、AnsiSameText varss,s: AnsiString;b: Boolean; beginss := 'abc';s := 'ABC';b := AnsiSameStr(ss,s); {區分大小寫}ShowMessage(BoolToStr(b)); {False}b := AnsiSameText(ss,s); {不區分大小寫}ShowMessage(BoolToStr(b)); {True} end;//比較兩個字符串大小: AnsiCompareStr、AnsiCompareText vars1,s2: AnsiString;i: Integer; begins1 := 'Hello';s2 := 'hello';i := AnsiCompareStr(s1,s2); {區分大小寫}ShowMessage(IntToStr(i)); {1}i := AnsiCompareText(s1,s2); {不區分大小寫}ShowMessage(IntToStr(i)); {0}{有 3 種可能的返回值:s1 > s2 : 1s1 < s2 : -1s1 = s2 : 0 } end;//比較兩個文件名大小: AnsiCompareFileName vars1,s2: AnsiString;i: Integer; begins1 := 'c:\temp\2.txt';s2 := 'c:\temp\1.TXT';i := AnsiCompareFileName(s1,s2);ShowMessage(IntToStr(i)); {1}{有 3 種可能的返回值:s1 > s2 : 1s1 < s2 : -1s1 = s2 : 0 } end;//大小寫轉換: AnsiUpperCase、AnsiLowerCase varss,s: AnsiString; beginss := 'Hello';s := AnsiUpperCase(ss);ShowMessage(s); {HELLO}s := AnsiLowerCase(ss);ShowMessage(s); {hello} end;//文件名大小寫轉換: AnsiUpperCaseFileName、AnsiLowerCaseFileName varss,s: AnsiString; beginss := 'C:\Temp\1.txt';s := AnsiUpperCaseFileName(ss);ShowMessage(s); {C:\TEMP\1.TXT}s := AnsiLowerCaseFileName(ss);ShowMessage(s); {c:\temp\1.txt} end;//查找一個字符串在另一個字符串中最先出現的位置: AnsiPos varss,s: AnsiString;i: Integer; beginss := 'abcdefgcd';s := 'cd';i := AnsiPos(s,ss);ShowMessage(IntToStr(i)); {3} end;//添加定界符: AnsiQuotedStr varss,s: AnsiString; beginss := '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 varss,s: AnsiString; beginss := '"Hello"';s := AnsiDequotedStr(ss, '"');ShowMessage(s); {Hello} end; 《新程序員》：云原生和全面數字化實踐50位技術專家共同創作，文字、視頻、音頻交互閱讀

總結

以上是生活随笔為你收集整理的Delphi 中的字符串函数(5) - SysUtils 中的 Ansi 字符串函数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。