Delphi. найти последовательность всех чисел от 1 до n, кроме чисел с одинаковыми цифрами

[bayda06]

НАрод помогите пожалуйста прогу на делфи сделать она звучит так:
Дано число n(число вводится с клавиатуры)найти последовательность всех чисел от 1 до n, кроме чисел с одинаковыми цифрами,тоесть числа например такие как121 222 5895 и т д где в чесле 2 и больше одинаковых цифр не должны выбивать...

From Stilet: Я от лица народа тебя в следующий раз в баньку определю за неинформативное название темы. Народ меня поймет.

[mMAg]

bayda06, ну и в чём собственно проблема? Что не получается?

[bayda06]

Вобще незнаю циклом как сделать от 0 до 99 знад а дальше хода событий не понимаю если можешь сделай пожалуйста помоги...(

[mMAg]

Да не вопрос. Консоль или окно тебе нужно? Куда собственно результат работы программы выводить. Или достаточно просто узнать, а препод в дебаге посмотрит, что я там узнал?

[bayda06]

Не там надо в форме замутить окно вроде бы эдит да эдит туда результат кидает и сделать поле куда вводишь число до какого чтоб выводило и кнопка всеСпасибо тебе огромное век не забуду

[mMAg]

Пожалуйста, обращайся ещё.

[bayda06]

Долго ты ее делать будешь?=)

[mMAg]

Прикольно 0)) Я думал, что ты меня отблагодарил и на этом всё. А тебе ещё её и сделать нужно?! Неожиданно. Собственно, а каким образом тебе код дать? Ты его прикрутить сможешь, если я тебе здесь просто выложу дпрник? Может ну её, эту волокиту с объяснялками, куда и что. Вам же это не нужно, как я понимаю, вам просто сдать. Так давайте пропустим её... Беда знаете в чём, что я не знаю, как сюда вайл прикрепить.

Ай, в общем, держите процедуру, которую повесите на свою кнопку. Также у вас на форме должны присутствовать: Edit c названием Edit1 (по умолчанию) и Memo с названием Memo1 (по умолчанию).

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k : integer;
    number : integer;
    mas : array [0..9] of boolean;
    p : boolean;
begin
  try
    number := StrtoInt(Edit1.Text);
  except
    on EConvertError do ShowMessage('Сука необразованная, числа вводи!!!');
  end;
  for i := 1 to number do
  begin
    for j := 0 to 9 do
    begin
      mas[j] := false;
    end;
    p := true;
    j := i;
    while (j > 0) and p do
    begin
      k := j mod 10;
      j := j div 10;
      if not mas[k] then
        mas[k] := true
      else
        p := false;
    end;
    if p then
      Memo1.Lines.Add(Inttostr(i));
  end;

end;