DELPHI 如何去除数组中重复的数字？

您好,这样应该就行了.还有可以写一个嵌套循环也可以.
procedure TForm1.Button1Click(Sender: TObject);
var
aa, bb: array of Integer;
i: Integer;
stmpLst: TStringList;
stmpStr: String;
begin
setlength(aa, 10);
aa[0] := 1;
aa[1] := 2;
aa[2] := 3;
aa[3] := 4;
aa[4] := 4;
aa[5] := 5;
aa[6] := 6;
aa[7] := 7;
aa[8] := 7;
aa[9] := 8;
try
stmpLst := TStringList.Create;
for i := 0 to length(arr) - 1 do
begin
stmpStr := IntToStr(arr[i]);
if stmpLst.IndexOf(stmpStr) = -1 then
begin
stmpLst.Add(stmpStr);
end;
end;
SetLength(bb, stmpLst.Count);
for i := 0 to stmpLst.Count - 1 do
begin
bb[i] := StrToInt(stmpLst[i]);
end;
finally
stmpLst.Free;
end;
end;

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v73yxjrj77ye2vjxrjx.html