想在一个已知字符串的某一个位置插入一串新的字符,应如何实现。比如有字符串'abc.efg'想变成'abc.***efg'的形式。用insert如何做。

解决方案 »

  1.   

    var
       a,b:string;begin
       a:='***';
       b:='abc.efg';
       insert(a,b,4);
       showmessage(b);
    end;
      

  2.   

    var
       a,b:string;begin
       a:='***';
       b:='abc.efg';
       insert(a,b,4);
       showmessage(b);
    end;
      

  3.   

    var  S: string;
    begin
      S := 'Honest Lincoln';
      Insert('Abe ', S, 8);                    { 'Honest Abe Lincoln' }
    end
      

  4.   

    var
       a,b:string;begin
       a:='***';
       b:='abc.efg';
       insert(a,b,5);
       showmessage(b);
    end;
      

  5.   

    Up
    字符串六个操作函数:pos、contact、delete、insert、copy、length
      

  6.   

    请问StringReplace替换函数怎么使???
      

  7.   

    b := 'abc.efg.hij.zzz'
    想把所有的'.'的后面都加'***'
    如何实现???、
      

  8.   

    StringReplace('abc.efg','.efg','.*****efg',[rfReplaceAll]);