stringlist的疑难杂症啊！

Question

|4#24#8618210910127#Acct:0011Zone:11113009Event:Burglary17/08/0415:26:17#1706-0421:4011
这个字符串 用一个MEMO装进去procedure TForm1.Button1Click(Sender: TObject);
var
str,count1:string;
ts:Tstringlist;
begin
    str:=memo1.Text;
    ts:= Tstringlist.Create;
    ts.Delimiter:='|';
    ts.DelimitedText:=Str;
    count1:=inttostr(ts.Count-1);
    showmessage(count1);
end;
显示的结果是4 何解？！！
ts[0]是 ‘’
ts[1]是4#24#8618210910127#Acct:0011
ts[2]是Zone:11113009
ts[3]是Event:Burglary
ts[4]是17/08/045:26:17#17-06-0421:40:11如果是数字和字母相邻就会被分割
 

Answer 1

共有5列
ts.Count 应该5
count1:=inttostr(ts.Count-1);   // 减去1，结果当然是4了

Answer 2

.....
    ts.Delimiter:='|';
    ts.Text:=Str;
应该就是你想要的了