Combinaciones

[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

[roman]

Empezado por Delar

DUDA SOLUCIONADA

¿Ah si? Pues a mi me queda una que otra duda

Por ejemplo, el fragmento de código

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

está perfecto para cuatro símbolos. Pero entendí de lo que describes, que el número de símbolos se especifica durante la ejecución. ¿Cómo haces para manajera un número variable? Porque no puedes agegar un ciclo for durante la ejecución.

// Saludos