From: <Philippe Ranger>
Subject: Re: function StringReplace(const
Date: 06 Dec 1999 00:00:00 GMT
Message-ID: <82frg0$qgg15@forums.borland.com>
References: <82fhu2$qgc5@forums.borland.com>
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Organization: PhR
Reply-To: "Philippe Ranger" <PhilippeRanger@compuserve.remove-this.com>
Newsgroups: borland.public.delphi.objectpascal

<<Vern:
But can someone please give me a simple working eaxample of StringReplace.
Thanks in advance!   ...Vern
>>

Procedure show;
Var
    s, s1, sM: string;
Begin
    s := 'X talks to X about x.';
    sM := 'Original -- ' + s + ^M^J^M^J;

    s1 := stringReplace(s, 'X', 'Vern', []);
    sM := sM + 'Plain StringReplace -- ' + s1 + ^M^J^M^J;

    s1 := stringReplace(s, 'X', 'Vern', [rfReplaceAll]);
    sM := sM + 'With rfReplaceAll -- ' + s1 + ^M^J^M^J;

    s1 := stringReplace(s, 'X', 'Vern', [rfIgnoreCase]);
    sM := sM + 'With rfIgnoreCase -- ' + s1 + ^M^J^M^J;

    s1 := stringReplace(s, 'X', 'Vern', [rfReplaceAll, rfIgnoreCase]);
    sM := sM + 'With both flags on -- ' + s1;

    showMessage(sM);
End;

    PhR