在TStringList中添加多个分隔符

Question

这是我的分隔文本:$ HEHDT,10.17,T*28 $ HEHDT,10.18,T*2A等......

逗号是我的句子分隔符.但是,我也希望使用星号作为我的分隔符.

我想要实现的输出是:

$ HEHDT 10.17 T 28 $ HEHDT 10.18 T 2A

如何在delphi中指定多个句子分隔符？这是我到目前为止的代码.

var
  MyStringList: TStringList;
  i: Integer;
begin
  MyStringList:= TStringList.Create;

  MyStringList.Delimiter := ','
  MyStringList.DelimitedText := '$HEHDT,10.17,T*28'+#13#10 +'$HEHDT,10.18,T*2A' +#13#10;

  for i= 0 to MyStringList.Count-1 do
    ShowMessage(MyStringList[i]);

  MyStringList.Free;
end;

对于上面的代码,它只将逗号作为分隔符.如何包括2个分隔符,包括逗号和星号？

提前谢谢了!=)

Answer 1

Delphi stringlist足以让您能够"免费"解析一个分隔符上的文本.如果你想要一组分隔符 - 那么你需要使用StrUtils.SplitString:

http://docwiki.embarcadero.com/VCL/en/StrUtils.SplitString