如何取得某子串在某字符串中第二次出现的位置？比入字符串abc#def#ghjk，我要取得两个#中间的def这个子串

Question

另外一个问题，
s2 := 'abc';
s1 := s2;
s2 := 'xyz';
现在是不是s1变成了'xyz'？

Answer 1

var s:string;
    i:integer;
begin
    s:='.....';
    i:=pos('#',s);
    if i=0 then exit;
    s:=copy(s,i+1,length(s)-i);
    i:=pos('#',s);
    if i=0 then exit;
    s:=cpoy(s,1,i-1);
end;

Answer 2

另外一个问题，
s2 := 'abc';
s1 := s2;
s2 := 'xyz';
现在是不是s1变成了'xyz'？不是 S1还是原来的值

Answer 3

第一个问题：
  
   use StrUtils   function SubStr(Whole_Str,interval_Str:string):string;  
     begin
       Whole_Str := RightStr(Whole_Str,Length(Whole_Str) - pos                 (interval_Str,Whole_Str));
       Result := LeftStr(Whole_Str,pos(interval_Str,Whole_Str) - 1);
     end;   procedure TForm1.Button1Click(Sender: TObject);
     begin
       showmessage(SubStr('abc#def#ghjk','#'));
     end;