===字符串分隔===

Question

例如:有下面一个很长很长的字符串st:********〓|胡炼朝|曹源|贾东|蔡贵凤|王露波|李金琳|金宇|沃盛泽*|曹波平|乐烨虹|潘恩光|袁琼燕|周梦瑶|胡叶玲*|胡周灵|李莉莉|张燕|周燕娜|王晓燕|王武群|严博之|张晓玲*|虞琪琪|邬幸君|张仕|王世浩|陈静|徐琴|胡宁宁|王海*|陆将盛|胡奇光*|来一个**|人名*该字符串符号〓前后都有8个*号在vb中很容易用split函数将上述字符串分隔开.                            m1 = Split(st, "〓")
                            m2 = Split(m1(0), "*")
                            m3 = Split(m1(1), "*")从而m2(0) m2(1) m2(3) m2(4) m2(5) m2(6) m2(7)
    m3(0) m3(1) m3(3) m3(4) m3(5) m3(6) m3(7)便是我需要的数据．
我的delphi基础很差，请教各位大哥，如何用delphi分隔呢？我需要类似代码
感谢！

Answer 1

用TStringList,他有个delimeter(好像这个样子)

Answer 2

  List.Delimiter := '|';//这个字符换成你自己的
  List.DelimitedText := 'aaa|bbb|ccc|ddd';

Answer 3

楼主到这个帖子来看看
http://topic.csdn.net/u/20080624/13/00d13949-0fe7-46d8-92a1-7c57a24d7688.html

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
   ss:TStrings;
begin
    ss:=TStringList.Create;
    ss.Delimiter:='|';
    ss.DelimitedText:='aa|bb|cc|dd|ee';
    ShowMessage(ss.Text);
end;