delphi中怎么删除数组中的重复数据

Question

我现在已经定义了一个字符串数组n,n[122],但是里面有重复的元素，我想把重复的数据剔除掉，写了一个程序，执行没有错误，但是就是删除不了。达人们帮我看下啊//剔除数组n中重复的数据，并赋值给数组b    b[1]:=n[1];
    m:=0;
    for i:=1 to 122 do
    begin
      for j:=1 to m do
      begin
        if n[i]=b[j] then
        begin
          break;
          end
        else
        begin
            continue;
        end;
      end;
         m:=m+1;
         b[m]:=n[i];
    end;

Answer 1

var
  N: array[0..122-1] of Integer;
  i,J,K,Count: Integer;
begin
  //仅用于生成测试数据
  for I := 0 to Length(N) - 1 do begin
    Randomize;
    N[I] := Random(3124124);
  end;  Count := Length(N);
  for I := 0 to Count - 1 do begin
    for J := I+1 to Count - 1 do begin
      if N[I] = N[J] then begin
        K := J + 1;
        while K < Count do begin
          N[K-1] := N[K];
          Inc(K);
          Dec(Count);
        end;
      end;
      if J >= Count then Break;
    end;
    if I >= Count then Break;
    
  end;end;

Answer 2

var
existflag:boolean;
   b[1]:=n[1]; 
    m:=0; 
    for i:=1 to 122 do 
    begin 
      existflag:=false;
      for j:=1 to m do 
      begin 
        if n[i]=b[j] then 
        begin
          existflag:=true;
          break; 
        end; 
      end;
      if not existflag 
      begin
        m:=m+1; 
        b[m]:=n[i]; 
      end;
    end; 

Answer 3

var 
existflag:boolean; 數組是以Index是以0開始
  b[0]:=n[0]; 
    m:=0; 
    for i:=1 to 122-1 do 
    begin 
      existflag:=false; 
      for j:=0 to m do 
      begin 
        if n[i]=b[j] then 
        begin 
          existflag:=true; 
          break; 
        end; 
      end; 
      if not existflag 
      begin 
        m:=m+1; 
        b[m]:=n[i]; 
      end; 
    end; 

Answer 4

使用tlist对象，用他得sort属性排序，然后删除前面得或后面的一截