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

[rookiepro]

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

[wudi_1982]

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;

[gw_delphi]

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