关于dephi字符串操作问题，请大家帮忙，急,谢谢！

Question

字符串：MR D zhangyong 
变成    D MR zhangyong 。
请大家帮我写一下这段代码！小弟感激不尽！谢谢！

Answer 1

字符串：MR D zhangyong 
变成    D MR zhangyong 。
==========================
 
s:='MR D zhangyong';
resultStr:=copy(s, Pos(' ', s)+1, 1)+' '+copy(s, 1, Pos(' ', s)-1)+copy(s, Pos(' ',s)+2, 100)   end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
  sL: TStringList;
begin
  str := 'MR D zhangyong';
  sl := TStringList.Create;
  ExtractStrings([' '], [], PChar(str), sl);
  str := sl.Strings[1] + ' ' + sl.Strings[0] + ' ' + sl.Strings[2];
  sl.Free;
  ShowMessage(str);
end;