盒子论坛 v2.1

有这样的字符串“豫郑州市一级代理0013”，我要依次取得下列子串：
“豫”，“郑州市”，“一级代理”，“0013”，该怎么做？
注意：郑州市子串所在的位置长度不确定，一级代理的长度也不确定。

我的想法是在每个子串中间用一个特定符号分隔，比如逗号或者空格，可是怎么来具体操作呢？
我不懂了，请大侠教我，谢谢。
----------------------------------------------
-

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/4/25 18:43:33

1楼：

const S_Delimiter = ';'; // 分隔符为 ;

function SplitStr(Source: string; AList: TStrings): Integer;
var
  I: Integer;
begin
  Result := 0;
  AList.Clear;

  while(Source <> '') do
  begin
    I := Pos(S_Delimiter, Source);
    if I < 1 then
    begin
      AList.Add(Source);
      break;
    end else
    begin
      AList.Add(Copy(Source, 1, I - 1));
      Delete(Source, 1, I);
    end;
  end;

  Result := AList.Count;
end;

上面的例子依次将Source字符串分割并添加到一个字符串列表

此帖子包含附件:

大小:17.6K

Click here to redirect to my home
Click here to redirect to my blog

作者：

hebiziyu (hebiziyu)	★☆☆☆☆	-
	盒子活跃会员

2004/4/25 20:58:46

2楼：

多谢楼上的兄台～！
----------------------------------------------
-

信息

登陆以后才能回复