请教一个很简单的问题：在DELPHI中与VB中的Replace()函数相同功能的函数是什么？

Question

DElphi没有功能相同的函数，你只能自己写一个。

Answer 1

uses SysUtils;
type
  TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;例如：
  var str: String;
  
  str := '123123123aa8989898bb23213423cc';
  str := StringReplace(Str,'aa','dd',[rfReplaceAll]);
  ShowMessage(str);

Answer 2

9494!Delphi没有这个函数，实在是遗憾！

Answer 3

给你一个
function replace(str,s1,s2:string;casesensitive:boolean):string;
var
i:integer;
s,t:string;
begin
s:='';
t:=str;
       repeat
       if casesensitive then i:=pos(s1,t) else i:=pos(lowercase(s1),lowercase(t));
       if i>0 then
          begin
          s:=s+Copy(t,1,i-1)+s2;
          t:=Copy(t,i+Length(s1),MaxInt);
          end
       else s:=s+t;
       until i<=0;
    result:=s;
end;

Answer 4

ReplaceText 
或
StringReplace;例：ReplaceText :
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);var
  SelPos: Integer;
begin
  with TReplaceDialog(Sender) do
  begin
  { Perform a global case-sensitive search for FindText in Memo1 }
    SelPos := Pos(FindText, Memo1.Lines.Text);
    if SelPos > 0 then
    begin
      Memo1.SelStart := SelPos - 1;
      Memo1.SelLength := Length(FindText);
      { Replace selected text with ReplaceText }
      Memo1.SelText := ReplaceText;
    end
    else MessageDlg(Concat('Could not find "', FindText, '" in Memo1.'), mtError, [mbOk], 0);  end;end;

Answer 5

ReplaceText 
或
StringReplace;例：ReplaceText :
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);var
  SelPos: Integer;
begin
  with TReplaceDialog(Sender) do
  begin
  { Perform a global case-sensitive search for FindText in Memo1 }
    SelPos := Pos(FindText, Memo1.Lines.Text);
    if SelPos > 0 then
    begin
      Memo1.SelStart := SelPos - 1;
      Memo1.SelLength := Length(FindText);
      { Replace selected text with ReplaceText }
      Memo1.SelText := ReplaceText;
    end
    else MessageDlg(Concat('Could not find "', FindText, '" in Memo1.'), mtError, [mbOk], 0);  end;end;

Answer 6

ReplaceText 
或
StringReplace;例：ReplaceText :
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);var
  SelPos: Integer;
begin
  with TReplaceDialog(Sender) do
  begin
  { Perform a global case-sensitive search for FindText in Memo1 }
    SelPos := Pos(FindText, Memo1.Lines.Text);
    if SelPos > 0 then
    begin
      Memo1.SelStart := SelPos - 1;
      Memo1.SelLength := Length(FindText);
      { Replace selected text with ReplaceText }
      Memo1.SelText := ReplaceText;
    end
    else MessageDlg(Concat('Could not find "', FindText, '" in Memo1.'), mtError, [mbOk], 0);  end;end;