如何从一组七位数字中，提取出不重复的数，并按升序排列

Question

如题
比如说有这一样一组数2147248
我希望得出的结果是12478
请赐教

Answer 1

如果仅仅是数字的话，那就从0到9分别判断，只要存在就放到一个数组里。
比如：
s,t: string;
i,j,k: integer;
s:= 214728;
for i:= 0 to 9 do begin
  for j:= 0 to length(s) do begin
    if s[j] = i then t[k]:= i;
  end;
  inc(k);
end;
大概这样吧，呵呵。

Answer 2

var
  i:integer;
  a:TStringList;
  s:string;  a : =TStringList.Create;
  a.Sorted := True;
  for i ;=0 to 6 do
  begin
   if a.IndexOf(arr[i])) = -1 then
    a.Add(arr[i])
   s:=a.CommaText;//结果
  end;

Answer 3

to sorder
具体怎么呀，要详细代码

Answer 4

这个测试过了：
procedure TForm1.Button1Click(Sender: TObject);
var
  s,ss: string;
  i,j,k: integer;
  t: array[0..7] of integer;
begin
  k:= 0;
  s:= '214728';
  ss:= '';
  for i:= 0 to 9 do begin
    for j:= 1 to length(s) do begin
      if s[j] = inttostr(i) then begin
        t[k]:= i;
        ss:= ss+ inttostr(i);
        break;
      end;
    end;
    inc(k);
  end;
  showmessage(ss);
end;