Добавить более 1 разделителя в TStringList

Это мой текст с разделителями: $ HEHDT, 10.17, T * 28, $ HEHDT, 10.18, T * 2A и так далее ...

Запятая - мой разделитель предложений. Однако я хочу также использовать звездочку в качестве разделителя.

Результат, которого я хочу достичь:

$ HEHDT 10,17 Т 28 год $ HEHDT 10,18 Т 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 разделителя, запятую и звездочку?

Заранее большое спасибо! =)

5
задан bluish 23 January 2013 в 16:03
поделиться