Números invertidos
16/01/2006
0
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
Posts
16/01/2006
Edilcimar
17/01/2006
Laelsonc
Valeus
17/01/2006
Edilcimar
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
17/01/2006
Laelsonc
Sei que isso é coisa de lógica mesmo, desculpe o incômodo.
Valeus.
17/01/2006
Edilcimar
Clique aqui para fazer login e interagir na Comunidade :)