Fórum gerar um codigo sem deixar repetir o numero #325513

  TMontaCodigo = class
    public
      constructor Create;
      destructor Destroy;
      function Codigo(n1,n2,n3,n4,n5:integer):string;
  end;

{ TMontaCodigo }

function TMontaCodigo.Codigo(n1, n2, n3, n4, n5: integer): string;
begin
  Result:=Format(´¬d¬d¬d¬d¬d-¬d¬d¬d¬d´,[n1,n2,n3,n4,n5,random(10),random(10),random(10),random(10)])
end;

constructor TMontaCodigo.Create;
begin
  RandSeed:=Config.RandomSeed;

  //onde Config é um objeto singleton ou record global contendo diversas configuracoes do seu sistema.

  //Importante ao iniciar seu sistema (OnCreate ou OnShow etc)
  //Config.RandomSeed:=ArquivoIni.ReadInteger(´Configuracoes´ ,´UltimoNumero´);
  //Config.OutraPropriedade:=...

  //E ao fechar seu sistema (OnClose etc)
  //ArquivoIni.WriteInteger(´Configuracoes,´UltimoNumero´,Config.RandomSeed);
  //ArquivoIni.WriteString(...

end;

destructor TMontaCodigo.Destroy;
begin
  Config.RandomSeed:=Config.RandomSeed+1;
end;

//Exemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
var
  m:TMontaCodigo;
  i:integer;
  temp:string;
begin
  //se a geração de números for freqüente pode-se colocar a criação
  //e destruição de TMontaCodigo em outro lugar.
  m:=TMontaCodigo.Create;
  for i:=1 to 30 do begin
    temp:=temp+m.Codigo(1,2,3,4,5)+#13;
  end;
  showmessage(temp);
  m.Destroy;
end;

function GeraCombinacoes(S: string; NumDig: Integer): TStrings;
var I, J: Integer;
       X: Char;
      TS: TStrings;
      S1: string;
begin
  Result := TStringList.Create;
  TS     := TStringList.Create;

  for I := 1 to Length(S) do Result.Add(S[I]);

  while Length(Result.Strings[0]) < NumDig do
    begin
      for I := 0 to (Result.Count - 1) do 
        begin
          S1 := ´´; 
          for J := 1 to Length(S) do 
            begin
              X := S[J];
              if Pos(X, Result.Strings[I]) = 0 then S1 := S1 + X;
            end;

          for J := 1 to Length(S1) do 
            begin
              X := S1[J]; 
              TS.Add(Result.Strings[I] + X);
            end; 
        end; 
      Result.Text := TS.Text;
      TS.Clear; 
    end; 
  TS.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Text := GeraCombinacoes(´1234567890´, 4).Text;
Label1.Caption := IntToStr(Memo1.Lines.Count);
end;