//从左右两端提取指定数目的字符串: AnsiLeftStr、AnsiRightStr
varss,s: AnsiString;
beginss := 'abcdefg';s := AnsiLeftStr(ss, 2);ShowMessage(s); {ab}s := AnsiRightStr(ss, 2);ShowMessage(s); {fg}
end;//从指定位置开始提取指定长度的字符串: AnsiMidStr
varss,s: AnsiString;
beginss := 'abcdefg';s := AnsiMidStr(ss,3,2);ShowMessage(s); {cd}s := AnsiMidStr(ss,3,20);ShowMessage(s); {cdefg}
end;//查找字符串: AnsiContainsStr、AnsiContainsText
varss,s: AnsiString;b: Boolean;
beginss := 'Hello World';s := 'hello';b := AnsiContainsStr(ss,s);  {区分大小写}ShowMessage(BoolToStr(b));   {False}b := AnsiContainsText(ss,s); {不区分大小写}ShowMessage(BoolToStr(b));   {True}
end;//判断一个字符串是不是另一个字符串的开始: AnsiStartsStr、AnsiStartsText
varss,s: AnsiString;b: Boolean;
beginss := 'Hello World';s := 'he';b := AnsiStartsStr(s,ss);  {区分大小写}ShowMessage(BoolToStr(b)); {False}b := AnsiStartsText(s,ss); {不区分大小写}ShowMessage(BoolToStr(b)); {True}
end;//判断一个字符串是不是另一个字符串的结尾: AnsiEndsStr、AnsiEndsText
varss,s: AnsiString;b: Boolean;
beginss := 'Hello World';s := 'ORLD';b := AnsiEndsStr(s,ss);    {区分大小写}ShowMessage(BoolToStr(b)); {False}b := AnsiEndsText(s,ss);   {不区分大小写}ShowMessage(BoolToStr(b)); {True}
end;//替换字符串: AnsiReplaceStr、AnsiReplaceText
varss,strForm,strTo: AnsiString;
beginss := 'Hello World Hello World';strForm := 'hello';strTo := '*';ss := AnsiReplaceStr(ss, strForm, strTo);  {区分大小写}ShowMessage(ss);                           {Hello World Hello World}ss := AnsiReplaceText(ss, strForm, strTo); {不区分大小写}ShowMessage(ss);                           {* World * World}
end;//判断两个字符串是不是相似: AnsiResemblesText
varb: Boolean;
beginb := AnsiResemblesText('abc','apc');ShowMessage(BoolToStr(b)); {True 说明两个字符串相似}{它到底依据什么? 我非常感兴趣, 在另一篇随笔里专题研究}
end;//翻转字符串: AnsiReverseString
vars: AnsiString;
begins := 'Hello';s := AnsiReverseString(s);ShowMessage(s); {olleH}
end;//查找字符串数组: AnsiMatchStr、AnsiMatchText
vararr: array[0..3] of string;s: AnsiString;b: Boolean;
beginarr[0] := 'aaa';arr[1] := 'bbb';arr[2] := 'ccc';arr[3] := 'ddd';s := 'CCC';b := AnsiMatchStr(s,arr);   {区分大小写}ShowMessage(BoolToStr(b));  {False}b := AnsiMatchText(s,arr);  {不区分大小写}ShowMessage(BoolToStr(b));  {True}
end;//查找字符串数组并返回子串的位置: AnsiIndexStr、AnsiIndexText
vararr: array[0..3] of string;s: AnsiString;i: Integer;
beginarr[0] := 'aaa';arr[1] := 'bbb';arr[2] := 'ccc';arr[3] := 'ddd';s := 'CCC';i := AnsiIndexStr(s,arr);   {区分大小写}ShowMessage(IntToStr(i));   {-1, -1表示没找到}i := AnsiIndexText(s,arr);  {不区分大小写}ShowMessage(IntToStr(i));   {2}
end;//从第几个字符开始,搜索字串的位置 PosEx
varss,s: string;i: Integer;
beginss := 'CodeGear Delphi 2007';s := 'Gear';i := PosEx(s,ss,4);ShowMessage(IntToStr(i));  //5
end;