在Delphi中单独的Tstringlist

时间:2019-05-16 08:47:35

标签: string delphi tstringlist

我想按事件分隔字符串列表,请参见下面的列表。

Event: DialBegin
Privilege: call,all
Channel: PJSIP/1177-00000638
ChannelState: 4
ChannelStateDesc: Ring
CallerIDNum: 1177
CallerIDName: IT Test

// Seperation //

Event: NewConnectedLine // New Seperation
Privilege: call,all
Channel: PJSIP/1177-00000638
ChannelState: 4
ChannelStateDesc: Ring
CallerIDNum: 1177
CallerIDName: IT Test

// Seperation //

Event: ....

当前,我使用NameValueSeparator()获取事件的名称,

Eventlst.Text := StrBuffer;
Eventlst.NameValueSeparator := ':';
str := Trim(Eventlst.Values['Event']);
// result: Dialbegin

但是我无法获得另一个事件“ NewConnectedLine”以及随后发生的另一个事件。

有人可以帮助我解决问题吗?

0 个答案:

没有答案