数组有重复数值,如何去除数组中重复的数值?

Question

如题,谢谢

Answer 1

var
  vList: TStringList;
  vArray: array of integer;
  i: integer;
  vIndex: integer;
begin
  setlength(varray, 10);
  for i := 0 to 7 do
    vArray[i] := i;
  vArray[8] := 0;
  vArray[9] := 5;
  vList := TStringlist.create;
  try
    for i := low(vArray) to High(vArray) do
    begin
      vIndex := vList.indexof(IntToStr(vArray[i]));
      if vIndex < 0 then
        vList.addobject(IntToStr(vArray[i]), Pointer(i));
    end;
    setlength(vArray, vList.count);
    for i := 0 to vList.count - 1 do
      vArray[i] := StrToInt(vList.strings[i]);
  finally
    vlist.free;
  end;
end;直接写的，没有测试，自己试试看。