1. 程式人生 > >快速合併兩個TList【delphi7】

快速合併兩個TList【delphi7】

procedure TfmPubClient.AddList(Source, Dest: TList);
var
  a1count_old: Integer;
begin
  a1count_old :=  Dest.Count;
  Dest.Count := Dest.Count + Source.count;
  System.Move(Source.list^[0], Dest.list^[a1count_old], Source.count*sizeof(Pointer));
end;