Comando for delphi 7

Delphi

26/02/2014



Tenho um campo no meu banco de dados que recebera 3 digitos,
porém tem que ser de 1 a 15 mas não pode ser sequencia tem que ser aleatório.

O sistema tera que ter a condição de verificar se senão é sequencia senão for ele grava. depois ele volta para o loop verifica a mesma condição senão for sequencia e tambem não podera repetir o ja gravado .


Exemplo:

números de 1 a 15 o sistema tera que ir gravando no campo do meu banco de dados os seguinte.

01|05|09| ai o sistema grava. depois passa para novo registro
01|03|13| ai grava novamente

porém tem que sempre ser aleatoriamente e nunca repetir a senha já gravada ou seja terá que ter todas as combinações de 1 a 15 mas não poderá ser sequencia e não poderá repetir o que já tiver sido gravado.


Alguém tem alguma solução ?

Desde já agradeço.
Vinicius Campolina

Vinicius Campolina

Curtidas 1

Melhor post

Vinicius Campolina

Vinicius Campolina

27/02/2014

Mas como ficaria no exemplo abaixo Maxiwel

for x:=1 to 15 do
begin
writeln(x);

end;


Tipo que tem que me retornar apenas 3 digitos porém não pode ser sequencia ..
tipo não pode me retornar 1 2 3 ou 2 3 4 e assim por diante .

e outra a cada 3 digitos ele grava no banco de dados e verifica se já tem aquela sequencia , se tiver não pode gravar.
GOSTEI 1

Mais Respostas

Maxiwel Rodrigues

Maxiwel Rodrigues

26/02/2014

tente usa o comando "radom" e "randomize" ele cria numeros aleatorios todas as veses que vc abre a opção ou clica no boato de criar....use sua imaginação.
GOSTEI 0
POSTAR