回覆列表
  • 1 # 使用者4243767351955

    Delphi的StringReplace 字串替換函式

    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;

  • 中秋節和大豐收的關聯?
  • 環氧樹脂膠用途有哪些?