var StrLst: TStringList;begin StrLst:= TStringList.Create; try //有多少个2 StrLst.Delimiter:= '-'; StrLst.DelimitedText:= 'AB间-AB区间2层小楼'; Edit1.Text:=IntToStr(StrLst.Count - 1);//个数 finally StrLst.Free; end;end;