简单题目，统计每位数都不相同的算法

Question

比如给定1-10000，寻找里面每位都不相同的数，比如1234，23456.
复杂的算法也能做到，但是想求一个比较简练的算法

Answer 1

拿到这个题目我想出的应该是复杂算法。
stringlist循环比较。不同的找出来

Answer 2

是统计一个字符串，该串每位都不相同？下面代码只考虑数字
function Stat(str: string): boolean;
var
  d: array[0..9] of integer;
  k,n: integer;
begin
  Result := False;  for k := 1 to Length(str) do begin
    n := integer(str[k]) - integer('0');
    if d[n] > 0 then Exit;
    d[n] := 1;
  end;  Result := True;
end;