求000-999的1000个数的算法

Question

用delphi做出下面编写代码，实现下面的功能：
1、从000-999中找到只组合不排序、而且每位都不相同的不重复的数字，例如123，那么就不用找321，213这样的数字，显示所有。
2、从000-999中找到只组合不排序、而且有两位相同而且三位不能全相同的不重复数字，例如112，那么就不用找211了，显示所有。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
    i,j,k:integer;
begin
    for i:=0 to 7 do
        for j:=i+1 to 8 do
            for k:=j+1 to 9 do
                Memo1.Lines.Add(IntToStr(i)+IntToStr(j)+IntToStr(k));///////123，如果都显示，要排列下显示132,213,231,312,321共6种    for i:=0 to 9 do
        for j:=0 to 9 do
            if j<>i then
                Memo1.Lines.Add(IntToStr(i)+intToStr(i)+IntToStr(j));///////112，如果都显示，要排列下显示211
end;