[m0nzt3r]

Сообщение от s0Creator

Поясни на примере.

Вот простенький:

Код:

var
  st:string; mn:set of char; i:byte; ok:boolean;
begin
  st:=Edit1.Text;
  ok:=true;
  for i:=1 to Length(st) do begin
    if st[i] in mn then ok:=false
    else mn:=mn+[st[i]];
  end;
  if ok=true then ShowMessage('Win!') else ShowMessage('Fail!');
end;

Это если вводить текстом число. Если оно просто целым числом передается, вначале преобразуй его в строку и все. А так - эта прога будет работать даже для буквенных строк, в принципе.