having count 1:如何做程序员delphi