Сортировка

[beemoto]

у меня есть переменная UIN типа Integer.
в ней находится 9-вять цифр.
мне надо прошитать количество одниаковых цифр и сохранить в текстовый файл.
например: если она имеет тако содержимое: 111222333 тоона щитает что находится 3 разные цифры и сохраняет это читло в файл 3.txt
Буду оч благодарин!

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var UIN : longint;
mn : set of 0..9;
k,cnt : integer;
begin
UIN := 111222333;
cnt := 0;
mn := [];

while UIN>0 do
 begin
 k := UIN mod 10;
 if not (k in mn) then
  begin
  include(mn,k);
  inc(cnt);
  end;
 UIN := UIN div 10;
 end;

ShowMessage(IntToStr(cnt)); // в cnt - количество разных цифр

end;

Ну а запись в файл уже, думаю, сами добавите.

[beemoto]

Sazary, СУпер! спасибо!
именнно то что я хотел!
а можно поподробней!?
немного непонятны некоторые строчки...

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var UIN : longint;
mn : set of 0..9;
k,cnt : integer;
begin
UIN := 111222333;  // номер
cnt := 0;  
mn := [];  // множество, куда будем заносить уже встретившиеся числа

while UIN>0 do      // разбиваем номер на цифры
 begin
 k := UIN mod 10;      // берем очередную цифру
 if not (k in mn) then  // если ее еще нет в множестве
  begin
  include(mn,k);    // то добавляем ее туда
  inc(cnt);           // и увеличиваем счетчик
  end;
 UIN := UIN div 10;     // убираем эту цифру из числа
 end;

ShowMessage(IntToStr(cnt)); // в cnt - количество разных цифр

end;

[beemoto]

Sazary, Thanks!
topic closed.