Gera��o de 5 n�meros

Question

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 clic...

Adilsond · Answer

Como voce gostaria? n�meros de 00001 � 99999 ou de 10000 � 99999 ???...

Tiagojmilam · Answer

Eu gostaria de 10000 � 99999 ....

Marco Salles · Answer

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....

F�rum Gera��o de 5 n�meros #259243