delphi合并两个数组例子

使用delphi写的例子，但愿有人来看…

{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var arr1,arr2,arr3,arr4:array of Integer;
    i,k,n,x:Integer;
    a,b:integer;
    flag:boolean;
begin
  Randomize;
    a:=3;
    b:=5;
    SetLength(arr1,a);
    SetLength(arr2,b);
    lst1.Clear;
    repeat
    flag:=True;
    for i:=0 to (a-1) do
    arr1[i]:=Random(5);
    for i:=0 to (b-1) do
    arr2[i]:=Random(6);
    //由于数组1和数组2的元素是随机出来的可能存在重复
    for i:=0 to (a-2) do
    begin
        for k:=(i+1) to (a-1) do
        begin
          if arr1[i]=arr1[k] then flag:=False;
        end;
    end;
     for i:=0 to (b-2) do
    begin
       for k:=(i+1) to (b-1) do
       begin
         if arr2[i]=arr2[k] then flag:=False;
       end;
    end;
    until flag;
    //将两个数组内容比较，排除重复的
   if a>b then
     begin
      //遍历数量少的那个数组
      for i:=0 to (b-1) do
        for k:=0 to (a-1) do
          begin
            //如果数组1和数组2有相同元素，那么去掉数组2中的相同元素
            //数组1独有的元素+数组1和2共有的元素+数组2独有的元素
            if arr2[i]=arr1[k] then begin
               arr2[i]:=-100;
            end;
          end;
    end
    else
    begin
      for i:=0 to (a-1) do
        for k:=0 to (b-1) do
          begin
            //如果数组1和数组2有相同元素，那么去掉数组2中的相同元素
            //数组1独有的元素+数组1和2共有的元素+数组2独有的元素
            if arr1[i]=arr2[k] then begin
               arr1[i]:=-100;
            end;
          end;
    end;
    //找出少的那个数组值为-1的数量
    //数组1的数量+数组2的数量-重复数量
    x:=0;
    //这是a>b的情况
    if a>b then
    begin
      for i:=0 to (b-1) do
      begin
         if arr2[i]=-100 then x:=x+1;
      end;
      n:=a+b-x;
      SetLength(arr3,n);
      for i:=0 to (a-1) do
      begin
        arr3[i]:=arr1[i];
      end;
      if (b-x)<>0 then SetLength(arr4,b-x);
      k:=0;
      for i:=0 to (b-1) do
      begin
          if arr2[i]<>-100 then
          begin
              arr4[k]:=arr2[i];
          k:=k+1;
          end;
      end;
      //x=0的时候说明没有重复的
      for i:=a to (b-x+a-1) do
      begin
        if (b-x)<>0 then arr3[i]:=arr4[i-a];
      end;
    end
    // a<=b的情况
    else
    begin
      for i:=0 to (a-1) do
      begin
         if arr1[i]=-100 then x:=x+1;
      end;
      n:=a+b-x;
      SetLength(arr3,n);
      for i:=0 to (b-1) do
      begin
        arr3[i]:=arr2[i];
      end;
      //x=0的时候说明没有重复的
      if (a-x)<>0 then SetLength(arr4,a-x);
      k:=0;
      for i:=0 to (a-1) do
      begin
          if arr1[i]<>-100 then
          begin
              arr4[k]:=arr1[i];
          k:=k+1;
          end;
      end;
      //x=0的时候说明没有重复的
      for i:=b to (a-x+b-1) do
      begin
        if (a-x)<>0 then arr3[i]:=arr4[i-b];
      end;
    end;
    k:=0;
    for i:= 0 to (n-1) do
    begin
      k:=k+1;
      lst1.Items.Add(IntToStr(arr3[i]));
    end;
    edt1.Text:=IntToStr(k);
end;