么意思博客

将memo中重复行的数据删除，只保留一行相同数据！ 调用：

将memo中重复行的数据删除，只保留一行相同数据！

procedure RemoveDuplicates(const stringList : TStringList) ;
var
  buffer: TStringList;
  cnt: Integer;
begin
  stringList.Sort;
  buffer := TStringList.Create;
  try
    buffer.Sorted := True;
    buffer.Duplicates := dupIgnore;
    buffer.BeginUpdate;
    for cnt := 0 to stringList.Count - 1 do
    buffer.Add(stringList[cnt]) ;
    buffer.EndUpdate;
    stringList.Assign(buffer) ;
  finally
    FreeandNil(buffer) ;
  end;
end;

调用：

RemoveDuplicates(memo1.text)