Combinaciones

[[egostar]]

Bueno, veamos las cosas de otra manera, vamos a realizar lo que antes se conocia como una prueba de escritorio, escribe aquí como lo harias manualmente, a partir de eso, entonces seguramente cualquiera de nosotros te dara ideas de como hacerlo.

Te parece?

Salud OS.

[Delar]

Este es el codigo al que llegue:

Código Delphi [-]
for i:= 1 to 255 do
begin
   str[i] := Chr(i);
 ShowMessage(str[i]);
 end;

Con esto almaceno el caracter 1 en str[1]. Hasta ahi bien, pero como hago combinaciones del tipo str[1]str[1]str[1]str[1], str[1]str[1]str[1]str[2],
str[1]str[1]str[1]str[3]... Cuando el ultimo str se pone en 255 pues el penultimo sube al dos y se repite lo mismo pero asi:
str[1]str[1]str[2]str[1],str[1]str[1]str[2]str[2],str[1]str[1]str[2]str[3],... y asi succesivamente hasta que todos los str lleguen a 255.

Saludos,
Delar

[[egostar]]

Ya me confundi.

Inicialmente querias hacer esto

aaaa
aaab
aaac
.....
aaaA
aaaB
aaaC
.....
aaAa
aaAb
aaAc
.....

Estoy en lo correcto?

Salud OS.

[Delar]

Correctisimo.

[Delar]

Y cuando llegue al maximo (zzzz) se cambie a 5 cifras, cuando acabe las 5, cambia a 6, y asi hasta el numero indicado en el Edit.

Parece dificil, se os escapara esto, maestros del Delphi?
Yo lo estoy haciendo, pero no se hacer para que pase de las 4 a las 5 cifras, de las 5 a las 6, etc... sino que a mi manera tendria que hacer una funcion para cada cifra.
En cuanto acabe el codigo os cuento

Saludos,
Delar

[Neftali [Germán.Estévez]]

Empezado por Delar

Este es el codigo al que llegue:

Ok, Algo es algo.
Una variante podría ser esta:

Código Delphi [-]
for i:= 1 to 255 do begin
  for j := 1 to 255 do begin
    str[i] := Chr(i) + Chr(j);
  end;
  ShowMessage(str[i]);
end;

Prueba el código y amplíalo.

Además si no quieres los 255 caracteres (creo que sólo quieres letras) ajusta los for para que en lugar de comenzar por 1 comiencen por el número correspondiente a la "a".

[Delar]

Ya eso ya lo hice, del 48 a 122.

Saludos y gracias

[Delar]

En el momento en que le pones más de dos, el programa deja de responder y empieza a chupar recursos.

Código Delphi [-]
for i:= 48 to 122 do begin
  for j := 48 to 122 do begin
    for k := 48 to 122 do begin
      for l := 48 to 122 do begin
      str[i] := Chr(i) + Chr(j) + Chr(k) + Chr(l);
      Edit4.Text := str[i];
      end;
      Edit4.Text := str[i];
    end;
    Edit4.Text := str[i];
  end;
  Edit4.Text := str[i];
end;

[Neftali [Germán.Estévez]]

Es normal, piensa que lo has metido en un buqle bastante largo...
Para eso está:

Código Delphi [-]
  Application.ProcessMessages;

Puedes ponerlo para que se procesen mensajes; Es decir, si lo colocas cuando "cambias" los Edit, te dará tiempo a ver los resultados.

[Delar]

Ahora si que es perfectisimo.
Saludos!

DUDA SOLUCIONADA