Combinaciones

[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

[Delar]

Um claro, ese es el problema, pero bueno, podria hacer que el bucle fuese del maximo, por ejemplo 10 de maximo, entonces si el numero indicado es 10, hace el bucle con los 10, si es de 9, el bucle con los 9, y asi succesivamente.