Geração de 5 números

Delphi

20/11/2004

Olá amigos delphianos !


Venho por meio deste, pedir-lhes uma ajudinha com um probleminha. Tenho um campo chamado Conta, esse campo irá armazenar 5 dígitos ! Preciso que faça o seguinte , quando clicar no botão INSERIR/NOVO, ele gere cinco números aleatórios. Detalhe : Não poderá haver, por exemplo dois clientes com o mesmo numero de conta.

Sou iniciante em Delphi/Banco de Dados e preciso de uma rotina bem explicadinha nos miiiiinimos detalhes.


Valeu Galera !


Tiagojmilam

Tiagojmilam

Curtidas 0

Respostas

Adilsond

Adilsond

20/11/2004

Como voce gostaria? números de 00001 à 99999 ou de 10000 à 99999 ???


GOSTEI 0
Tiagojmilam

Tiagojmilam

20/11/2004

Eu gostaria de 10000 à 99999 .


GOSTEI 0
Marco Salles

Marco Salles

20/11/2004

Acho que seu Problema pode ser dividivo em Duas Partes:
A Primeira e Geração Do Código: Quanto esta , acho que uma maneira pode ser :

Function GerarNumeroConta:Integer;
var
i:Integer;
Texto:String;
begin
result:=Random(9);
result:=result+1;
Texto:=´´;
Texto:=InttoStr(result);
for i:=1 to 4 do
 begin
   result:=Random(10);
   Texto:=Texto+IntToStr(result);
 end;
ShowMessage(Texto);
result:=StrToInt(Texto);
end;


A segunda e saber Se Este Código Ja Existe Ou Não Uma conta Com Este Numero
Não poderá haver, por exemplo dois clientes com o mesmo numero de conta.


Para esta segunda etapa, acho que falta Informação, do tipo:
Aonde voce esta armazendando estes Numeros De Contas, Banco Que Voce Usa, Componentes De Acesso etc... Para saber se Este Numero Ja foi Gerado, Temos Que Saber quais São os Numeros Anteriorermente Gerados. e aonde eles estão armazenados....


GOSTEI 0
POSTAR