Delphi 中的字符串函- StrUtils 中的 Ansi 字符串函数（1

摘要

//从左右两端提取指定数目的字符: AnsiLeftStr、AnsiRightStr

var

ss,s: AnsiString;

begin

ss := 'abcdefg';

s := AnsiLeftStr(ss, 2);

ShowMessage(s); {ab}

s := AnsiRightStr(ss,...

//从左右两端提取指定数目的字符: AnsiLeftStr、AnsiRightStr

var

ss,s: AnsiString;

begin

ss := 'abcdefg';

s := AnsiLeftStr(ss, 2);

ShowMessage(s); {ab}

s := AnsiRightStr(ss, 2);

ShowMessage(s); {fg}

end;

//从指定位置开始提取指定长度的字符: AnsiMidStr

var

ss,s: AnsiString;

begin

ss := 'abcdefg';

s := AnsiMidStr(ss,3,2);

ShowMessage(s); {cd}

s := AnsiMidStr(ss,3,20);

ShowMessage(s); {cdefg}

end;

//查找字符: AnsiContainsStr、AnsiContainsText

var

ss,s: AnsiString;

b: Boolean;

begin

ss := 'Hello World';

s := 'hello';

b := AnsiContainsStr(ss,s); {区分大小写}

ShowMessage(BoolToStr(b)); {False}

b := AnsiContainsText(ss,s); {不区分大小写}

ShowMessage(BoolToStr(b)); {True}

end;

//判断一个字符串是不是另一个字符串的开: AnsiStartsStr、AnsiStartsText

var

ss,s: AnsiString;

b: Boolean;

begin

ss := 'Hello World';

s := 'he';

b := AnsiStartsStr(s,ss); {区分大小写}

ShowMessage(BoolToStr(b)); {False}

b := AnsiStartsText(s,ss); {不区分大小写}

ShowMessage(BoolToStr(b)); {True}

end;

//判断一个字符串是不是另一个字符串的结: AnsiEndsStr、AnsiEndsText

var

ss,s: AnsiString;

b: Boolean;

begin

ss := 'Hello World';

s := 'ORLD';

b := AnsiEndsStr(s,ss); {区分大小写}

ShowMessage(BoolToStr(b)); {False}

b := AnsiEndsText(s,ss); {不区分大小写}

ShowMessage(BoolToStr(b)); {True}

end;

//替换字符: AnsiReplaceStr、AnsiReplaceText

var

ss,strForm,strTo: AnsiString;

begin

ss := '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

var

b: Boolean;

begin

b := AnsiResemblesText('abc','apc');

ShowMessage(BoolToStr(b)); {True 说明两个字符串相似}

{它到底依据什? 我非常感兴趣, 在另一篇随笔里专题研究}

end;

//翻转字符: AnsiReverseString

var

s: AnsiString;

begin

s := 'Hello';

s := AnsiReverseString(s);

ShowMessage(s); {olleH}

end;

//查找字符串数: AnsiMatchStr、AnsiMatchText

var

arr: array[0..3] of string;

s: AnsiString;

b: Boolean;

begin

arr[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

var

arr: array[0..3] of string;

s: AnsiString;

i: Integer;

begin

arr[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

var

ss,s: string;

i: Integer;

begin

ss := 'CodeGear Delphi 2007';

s := 'Gear';

i := PosEx(s,ss,4);

ShowMessage(IntToStr(i)); //5

end;

📱 扫码关注公众号

扫描二维码关注我们，获取更多精彩内容
实时更新 · 干货满满