Delphi 单字符串被替换为多字符串

ゞ浴缸里的玫瑰 2022-04-11 04:27 250阅读 0赞

![20181204200659791.png][]

unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons, ComCtrls;
    
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        RichEdit1: TRichEdit;
        Edit2: TEdit;
        BitBtn1: TBitBtn;
        procedure BitBtn1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.BitBtn1Click(Sender: TObject);
    var
        i,j,n2,n,n1,index:Integer;
        str,str1,str2:string;
        s:array[1..10] of string;
        res:array[1..100] of string;
    begin
        index:=0;
        str:=RichEdit1.Text;
        str1:=Edit1.Text;
        str2:=Edit2.Text;
        n2:=Length(str2);
        n:=Length(str);
        n1:=Length(str1);
        for i:=1  to n2 do //替换后的字符添加到文本当中
            s[i]:=Edit2.Text[i];
        for i:=1 to n do
           if str[i]=str1 then
              begin
              for j:=1 to n2 do
                  begin
                  index:=index+1;
                  res[index]:=s[j];
                  end;
              end
           else
               begin
                 index:=index+1;
                 res[index]:=str[i];
               end;
    
    
          RichEdit1.Text:='';
          for i:=1 to 100 do
             RichEdit1.Text:=RichEdit1.Text+res[i];
    end;
    
    end.

运行结果：

![20181204200641164.png][]

[20181204200659791.png]: /images/20220411/3ceae6f007ad47fdaf051cfb54fd80d8.png
[20181204200641164.png]: /images/20220411/ebaeca8dc89c43eaa00a4ad210202853.png