Combinaciones

[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;