Delphi StrUtils 单元，字符串处理的一些使用

dw.z

于 2024-07-01 23:25:14 发布

阅读量152

点赞数 6

分类专栏： Delphi 文章标签： Delphi 字符串处理

本文链接：https://blog.csdn.net/zdwcmy/article/details/140112123

版权

Delphi 专栏收录该内容

30 篇文章 0 订阅

订阅专栏

引用单元 StrUtils 非 SysUtils

AnsiLeftStr、AnsiRightStr、AnsiMidStr、AnsiContainsStr、AnsiContainsText、AnsiStartsStr、AnsiStartsText、AnsiEndsStr、AnsiEndsText、AnsiReplaceStr、 AnsiReplaceText、AnsiResemblesText、AnsiReverseString、AnsiMatchStr、AnsiMatchText、AnsiIndexStr、AnsiIndexText、PosEx

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

var
    str,s: AnsiString;
begin
    str := 'abcdefg';
    s := AnsiLeftStr(str, 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
    strs: array[0..3] of string;
    s: AnsiString;
    b: Boolean;
begin
    strs[0] := 'aaaa';
    strs[1] := 'bbbb';
    strs[2] := 'cccc';
    strs[3] := 'dddd';
    s := 'BBBB';
    b := AnsiMatchStr(s,strs);  {区分大小写}
    ShowMessage(BoolToStr(b));  {False}
    b := AnsiMatchText(s,strs);  {不区分大小写}
    ShowMessage(BoolToStr(b));  {True}
end;

//查找字符串数组并返回子串的位置: AnsiIndexStr、AnsiIndexText

var
    strs: array[0..3] of string;
    s: AnsiString;
    i: Integer;
begin
    strs[0] := 'aaaa';
    strs[1] := 'bbbb';
    strs[2] := 'cccc';
    strs[3] := 'dddd';
    s := 'CCCC';
    i := AnsiIndexStr(s,strs);  {区分大小写}
    ShowMessage(IntToStr(i));  {-1, -1表示没找到}
    i := AnsiIndexText(s,strs);  {不区分大小写}
    ShowMessage(IntToStr(i));  {2}
end;

//从第几个字符开始,搜索字串的位置 PosEx

var
    str,s: string;
    i: Integer;
begin
    str := 'Code for Delphi 7';
    s := 'phi';
    i := PosEx(s,str,10);
    ShowMessage(IntToStr(i));  //13
end;