delphi里面往一个字符串里添加数个相同字符的函数是什么?在线等待!

解决方案 »

  1.   

    直接两个字符串相接就可以了
    procedure TForm1.Button1Click(Sender: TObject);
    var
      s,s1:string;
    begin
      s:='1';
      s1:='00000';
      s:=s1+s;
      showmessage(s);
    end;
      

  2.   

    procedure insert([要添加的字串],[被添加的字串],[添加在目的字串的起始位置])
    用循环就可以实现添加多个了
      

  3.   

    用 Length,Delete,与Insert 三个函数结合吧