Código Delphi
[-]
procedure Tform1.brute(n:integer; str:string);
var
ord:integer;
begin
if (n > 0)then
begin
for ord := 65 to 90 do
begin
brute(n-1, str+chr(ord));
end;
end
else
begin
hace que final se ponga a true
asmCode(str);
if(final = true) then
begin
// Aquí es donde quiero salirme del todo
exit;
end
end;
end;
Acabo de hacer unas pruebas y sale sin ningún problema lo que ocurre es que dependiendo el número que le
pongamos tarda más o menos.
En mi caso hasta el número 4 va relativamente rápido de ahí hacia arriba da la sensación de colgarse pero al
final sale.
Un Saludo.