摘要： //remove duplicate strings from the string list procedure RemoveDuplicates(const stringList : TStringList) ; var buffer: TStringList; cnt: Integer; begin stringList.Sort; buffer := TStringList.Create; try buffer.Sorted := True; buffer.Duplicates := dupIgnore; //这个表示的是重复荐删除。 ... 阅读全文