用户13985387567交了100元成功 
用户13985387567交了20元成功 
用户13985387567交了5元成功 如何提取交了多少钱?

解决方案 »

  1.   

    var
      S, S1 : Widestring;  s := '用户13985387567交了5元成功';
      S1 := Copy(S, pos('了', s) + 1 , pos('元', s) - pos('了', s));
      ShowMEssage(S1);
      

  2.   

     
    function getsAB(s,s1,s2:string):string;
      var i1,i2,i3:Integer;
    begin
        i1:=Pos(s1,s);
        i2:=Pos(s2,s);
        i3:=i2-i1;
        result:=Copy(s,i1+length(s1),i3-length(s1));
    end;哥哥我以前写的函数,同2楼的