Einzelnen Beitrag anzeigen

Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#31

Re: Theorie: Rekursive Funktion Abbrechen und Fortsetzen

  Alt 27. Okt 2005, 14:03
Zitat von alzaimar:
Ist der Algorithmus geheim? Vielleicht können wir ihn ja iterativ umformulieren?
nein: http://www.delphipraxis.net/internal...ct.php?t=62161

Delphi-Quellcode:
procedure BruteForceFunc(const init, str: string);
  var i: integer;
      npw: string;
  begin
    if slResult.Count >= BatchSize then begin
      if Assigned (KeyList) then KeyList.AddStrings(slResult);
      csThreadCounter.Enter;
      Progress := Progress + slResult.Count;
      csThreadCounter.Leave;
      slResult.Clear;
    end;

    for i := 1 to Length (str) do begin
      npw := init + str[i];
      if Length (npw) >= fStartLength then begin
        slResult.Add(npw);
        ThreadInfo[arrayID].Progress := ThreadInfo[arrayID].Progress + 1;
      end;
      if Length (npw) < fEndLength then BruteForceFunc (npw, str);
    end;
  end;
ist das herzstück

  Mit Zitat antworten Zitat