delphi里怎么分格字符串？？

Question

字符串
119#200523#13452#52342#FSF#|SSS|2342|BAD|SDE|3242|怎么把
119#200523#13452#52342#FSF#
|SSS|2342|BAD|SDE|3242|分开。并且把
119
200523
13452
等分格开来？？
谢谢

Answer 1

如果单是这串的话("119#200523#13452#52342#FSF")，用TStringList，设置Delimiter和delimitedtext即可。一大串的话，也许可以考虑用正则表达式。

Answer 2

最前面还有一些空格
     090  909 88 98911 9#200523#13452#52342#FSF#|SSS|2342|BAD|SDE|3242|就是这样的

Answer 3

先替换空格，# 然后 
TStringList，设置Delimiter和delimitedtext

Answer 4

先用pos把 空格换成别的字符。然后在用
delimiter设置分格来分开。是这个意思吗

Answer 5

var
  t:string;
  strs :TStrings;
  i :Integer;
begin
t := '     090  909 88 98911 9#200523#13452#52342#FSF#|SSS|2342|BAD|SDE|3242|';
  strs := TStringList.Create;
  strs.Delimiter := '#';
  strs.DelimitedText := StringReplace(t,' ','0', [rfReplaceAll]);;
  for i := 0 to Strs.Count-1 do
    showmessage(Strs[i]);end;
经过大家的指导。已经搞定，把代码帖上来。让别人也学习学习。