新手请教：如何在还有制表符的字符串中分割字符

Question

请问在包含有#9制表符的字符串中，如何把制表符前后的字符串提取出来，谢谢指点～～

Answer 1

procedure TForm1.Button2Click(Sender: TObject);//方法一，使用posex结合copy
var
 index,len : integer;
 s,tmp : string;
begin
  Memo1.Clear;
  Memo1.Lines.Add('1234'+#9+'5678');
   s := Memo1.Lines[0];
   len := length(s);
   index := PosEx(#9,s,1) ;
   tmp := copy(s,1,index);
   s := copy(s,index+1,len-index);
   Memo1.Clear;
   Memo1.Lines.Add(tmp);
   Memo1.Lines.Add(s);end;procedure TForm1.Button3Click(Sender: TObject);//方法二，使用TstringList的Delimiter 
var
 a : TStringList;
 i : integer;
begin
   a := TStringList.Create;
   a.Delimiter := #9;
   a.DelimitedText := '1234'+#9+'5678';
   for i := 0 to a.Count-1 do
     ShowMessage(a[i]);
end;

Answer 2

在uses里面加入单元StrUtils 用PosEx必须加
其实用Pos+Copy也是可以的.已测试