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;
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;