Delphi的StringReplace[转]

最新推荐文章于 2025-02-03 07:26:06 发布

weixin_30448603

最新推荐文章于 2025-02-03 07:26:06 发布

阅读量164

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/chuangyiyuan/p/6066711.html

本文介绍了Delphi中字符串替换函数StringReplace的使用方法，并通过示例演示了如何进行部分替换和全部替换，以及如何实现大小写敏感或不敏感的替换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

原文：http://blog.youkuaiyun.com/genispan/article/details/4458319

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;