Re: [firebase-br] CHAR(4) - Gerar código...

[diogo em smartsistemas.com.br]

Boa tarde, vc por acaso é de Marília ?


----- Original Message ----- 
From: "Prisma Sistemas - Moacir" <prismars em prismars.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Sunday, February 12, 2006 5:58 AM
Subject: Re: [firebase-br] CHAR(4) - Gerar código...


Robson,

Bom Uso !!

function GeraSenha(tamanho : integer =6; repete : boolean =false) : String;
var
  i, x, y : Integer;
  s    : String;
const
   LETRAS ='abcdefghjkmnpqrstuvxzwyABCDEFGHIJLKMNPQRSTUVXZYW23456789';
Begin
  result:='';
  Randomize;
  y:=Length(LETRAS);
  while length(result)<tamanho do
  Begin
    x:=0;
    s:='';
    while x=0 do
      x:=Random(y);
      s:=LETRAS[x];
    If not repete then
    begin
      If pos(s,result)<1 then
        result:=result+s;
      end
    else
        result:=result+s;
  end;
end;


Exemplo de uso:

   EditSENHA.Text   :=GeraSenha(4);


[ ]´s
Moacir

Robson Dantas de Aguiar escreveu:
> Olá pessoal...
>
> Procurei uma rotina e não encontrei, não dá para criar uma no braço
> porque ainda sou iniciante. Estou querendo uma rotina que a cada novo
> usuário, o próprio Banco de Dados crie 4 caracteres (não repetitivo)
> para cada cliente, esses 4 caracteres devem ter números de 0 à 9 e
> letras de A à Z, não podendo ser tudo letra nem tudo números.
>
> Alguma rotina pronta para eu estudar? Vê ae pessoal.......
>
> Falowww
>
> Robson Dantas
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa