Números invertidos

Delphi

16/01/2006

Pessoal queria uma ajudazinha numa lógica aqui.

Tenho uma opção na minha aplicação que preciso colocar números invertidos.
Ex:
Tenho uma milhar ´1254´, preciso lançar todas as combinações possíveis com esses quatro números, que se não me engano são 24 ( vou precisar com centena também ai seria 18 né, eu acho ).
Alguém tem uma função parecida ai ?

Valeus...


Laelsonc

Laelsonc

Curtidas 0

Respostas

Edilcimar

Edilcimar

16/01/2006

procure aqui mesmo que há menos de 1 semana foi repondido um tópico sobre isto


GOSTEI 0
Laelsonc

Laelsonc

16/01/2006

Legal. Valeu então.


GOSTEI 0
Laelsonc

Laelsonc

16/01/2006

Ai pessoal, infelismente o exemplo que o amigo me deu não serve para número aleatórios. No me caso o usuário irá colocar uma milhar qualquer. A partir desse número inserido, a função tem que quebrar a string e fazer as combinações. Alguém tem como me ajudar nessa ?

Valeus


GOSTEI 0
Edilcimar

Edilcimar

16/01/2006

var
numero : variant;
i, j : integer;
temp : string
begin
temp := trim(edit1.text)
J := length(temp)
numero := VarArrayCreate([1, j], VarInteger);
for i := 1 to j do
numero[i] := copy(temp,1,i)
end;
pronto, aí vc tem caracter por caracter dentro de um array, agora é só brincar com os números


GOSTEI 0
Laelsonc

Laelsonc

16/01/2006

Obrigado Edelcimar. Mas é justamente essa ´brincadeira´ rsrs, que eu to sem saber. To fazendo um bucado de loops aqui, mas não consegui o que queria, que são as combinações ( sem repetições ). To tentando fazer sem colocar numa array, so na base do copy. Vou tentar com a array pra ver. So lembrando que so trabalho com 4 ou 3 números ( milhar e centena aleatórios ).

Sei que isso é coisa de lógica mesmo, desculpe o incômodo.

Valeus.


GOSTEI 0
Edilcimar

Edilcimar

16/01/2006

para brincar com os números basta olhar o outro tópico que falei


GOSTEI 0
POSTAR