Delphi StringReplace – 替换字符函数

Delphi StringReplace – 替换字符函数

Delphi中的StringReplace函数是SysUtils单元中自带的函数,该函数可以替换字符串中的指定字符。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
 
// rfReplaceAll:全部替换
// rfIgnoreCase:忽略大小写
 
// For Example:
 
var
    aStr: String;
begin
    aStr := 'This is a book, not a pen!';
    ShowMessage(StringReplace (aStr, 'a''two', []));//This is two book, not a pen!只替换了第一个符合的字
    ShowMessage(StringReplace (aStr, 'a''two', [rfReplaceAll]));//This is two book, not two pen!替换了所有符合的字
    aStr := 'This is a book, not A pen!';
    ShowMessage(StringReplace (aStr, 'a''two', [rfReplaceAll]));//This is two book, not A pen!只替换了符合的字(小写a)
    ShowMessage(StringReplace (aStr, 'a''two', [rfReplaceAll, rfIgnoreCase]));//This is two book, not two pen!不管大小写替换了所有符合的字
end;
 
上一篇:React Native知识2-Text组件


下一篇:【BZOJ 1013】【JSOI2008】球形空间产生器sphere 高斯消元基础题