Gerar um n�mero �nico

Question

Gostaria de saber que fun��o do delphi eu posso usar, ou o que eu posso fazer, para gerar um n�mero �nico que seja virtualmente imposs�vel de se repetir com o tempo. Pode ser rand�mico ou n�o, mas n�o...

Motta · Answer

Monte um n�mero com a data/hora/min/mlseg (se em rede use a hora do servidor)20050331131141375meio bizarro, mais dif�cil repetir...

Vitor Rubio · Answer

Ser� que usando todo dia no mesmo horario n�o repete? outra: como posso, da minha aplica��o no cliente, pegar a data do servidor? estou usando interbase....

Motta · Answer

1) N�o pq. tem a data tb, assim n�o repete.

2) No Oracle tem uma function Sysdate que retorna a data/hora (at� seg), creio que no IB tenha algo assim , mas creio que pode ser a data da m�quina local.

3) Ib tem um objeto chamado generator (creio) que gera uma sequencia sem repeti��o

Vitor Rubio · Answer

n�o quero usar os generators do interbase, nem as triggers, nem stored procedures.  Queria poder pegar a data do sistema do micro onde o interbase est� instalado. tem como fazer isso? Valew!...

Motta · Answer

N�o um n�mero mas uma string alpha (26 letras + 10 digito)

gere um valor ramdomico

para um tamanho de 8 - 2821109907456
10 - 3656158440062976
16 - 7958661109946400884391936

a chance de colis�o � m�nima (ao n�o ser que seja para cadastrar cpf de chineses ...)

sendo case sensitive (26+26+10)

16 - 47672401706823533450263330816

Vitor Rubio · Answer

Gostei mais da sua primeira ideia, de concatenar a data do sistema com a hora minuto segundo e milisegundo. posso at� pegar o milissegundo do dia. o milissegundo eu posso pegar na maquina local, mas como pegar a data do sistema onde o ib est� instalado? sen�o eu pego local mesmo.

mesmo assim achei interessante a sua outra ideia.

N�o entendi esses n�meros que vc colocou: s�o exemplos dos n�meros gerados e a quantidade de d�gitos ou � a quantidade de possibilidades que d� pra fazer com as 26 letras e 10 d�gitos? como se implementaria essa fun��o?

Motta · Answer

combina��es ,

exemplo para gera n�meros :

procedure TForm1.SpeedButton1Click(Sender: TObject);
var 
  i,j,max:integer;
  s,str:string;
begin
  Randomize;
  if CheckListBox1.Checked[0] then
    str:= �1234567890�;
  if CheckListBox1.Checked[1] then
    str:=str + �ABCDEFGHIJKLMNOPQRSTUVWXYZ�;
  if str = �� then
  begin
    showmessage(�escolha um ao menos !!�);
    exit;
  end;
  RichEdit1.Lines.Clear;
  for j:=1  to SpinEdit1.Value do
  begin
    s:=��;
    max:= 6 + random(8);
    for i:=1 to max do
      s:= s + str[random(length(str))+1];
    RichEdit1.Lines.Add(s);
  end;
end;

Vitor Rubio · Answer

Valew! Vou aplicar sua sugest�o. Ela me deu umas id�ias para usar esse numero de outras formas tamb�m....

Michael · Answer

Ol� colega Vitor!Talvez haja uma solu��o menos trabalhosa e mais eficiente para o seu problema. Vamos l�:O Delphi possui a fun��o [b:9d1c42ef5c]Random[/b:9d1c42ef5c], que retorna um n�mero aleat�rio baseado na hora interna da BIOS - como ele faz isso � irrelavante aqui. � claro que vc n�o poderia simplesmente chamar Random pois os n�meros seriam pass�veis de repeti��o. E a� que entra a vari�vel global [b:9d1c42ef5c]RandSeed[/b:9d1c42ef5c]. Como o pr�prio nome diz, ela alimenta o gerador rand�mico da fun��o Random. RandSeed � inicializada apenas uma vez quando um aplicativo Delphi � carregado, portanto, todas as chamadas a Random retornar�o o mesmo valor. Para contornar isso, tamb�m h� a procedure [b:9d1c42ef5c]Randomize[/b:9d1c42ef5c], que trata de alterar os valores de RandSeed, dando a Random um car�ter aleat�rio de fato.Bom, Randomize insere v�rios valores em RandSeed, repetidos ou n�o. Se vc, manualmente, inserir sempre o mesmo valor, ent�o Random tamb�m ir� retornar sempre o mesmo valor.De qualquer forma n�o h� nada autom�tico. Vc teria que criar um valor - usando uma l�gica como a do colega Motta - e inser�-lo em RandSeed. Depois, Random faz o resto.Quanto a retornar a data do servidor de banco de dados, pesquise no f�rum por �data servidor�. Tem muitas solu��es l�Mas teste minha id�ia. Talvez ela n�o se encaixe em seu caso. Abra�os!...

Gandalf.nho · Answer

Para pegar informa��es de data e hora no IB/FB:CURRENT_DATECURRENT_TIMECURRENT_TIMESTAMP...

Motta · Answer

O problema de um valor aleatorio � que a chave tem de ter valor grande para minimizar o risco de colis�o.Ainda acho que um objeto como a sequence � mais simples....

Beppe · Answer

Tem um �problema� com num�ros aleat�rios(pseudo ou n�o), que eles n�o s�o necessariamente gerados de forma crescente. Na minha opini�o ou usa-se generator ou data(da forma que o Motta sugeriu as chaves ser�o crescentes).

Michael · Answer

Se n�o me engano, se a chave usada for sempre crescente, os valores gerados tbm ser�o.[]�s...

Beppe · Answer

[quote:db2098ed36=�Michael�]Se n�o me engano, se a chave usada for sempre crescente, os valores gerados tbm ser�o.[]�s[/quote:db2098ed36]Michael, se vc tiver interesse sobre como funciona o gerador de n�meros aleat�rios no Delphi, escrevi um artigo sobre o assunto: //www.forumweb.com.br/artigos/artigos.php?action=file&id=291Tamb�m h� uma discuss�o sobre o mesmo: //www.forumweb.com.br/foruns/index.php?showtopic=24599&hl=Em suma, um PRNG deve dar a mesma probabilidade de ocorr�ncia a qualquer n�mero no universo. Se �sempre crescente� for uma restri��o, a propriedade de randomicidade fica comprometida.S� uma coisa que n�o entendi no seu �ltimo post...que chave se referia?...

Michael · Answer

[quote:f6426e61e7=�Beppe�]Michael, se vc tiver interesse sobre como funciona o gerador de n�meros aleat�rios no Delphi, escrevi um artigo sobre o assunto: //www.forumweb.com.br/artigos/artigos.php?action=file&id=291(...)[/quote:f6426e61e7]Ol� Beppe!Com certeza irei dar uma olhada nos links que vc falou.A minha id�ia � de que os n�meros aleat�rios fossem sempre maiores que os anteriores. Por isso disse �crescente�. Tipo, 1, 4, 6, 9, 18 etc.A chave que eu disse � a vari�vel global RandSeed, que controla como Random funciona.[]�s...

F�rum Gerar um n�mero �nico #274856