delphi - 在 TStringList 中添加超过 1 个分隔符

Question

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

逗号是我的句子分隔符。但是，我也想使用星号作为分隔符。

我想要实现的输出是:

$HEHDT10.17时间28$HEHDT10.18时间2A

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

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 字符串列表足够好，让您能够“免费”解析一个分隔符上的文本。如果您想要一组分隔符 - 那么您需要使用 StrUtils.SplitString:

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