Da stimmt wa snicht mit dem Algorithmus. Ich habe alle kleinen Buchstaben eingeben und gesagt mindestens drei, höchstens fünf Buchstaben. Raus kam:
Zitat:
caa
caaa
caaaa
caaab
...
Wo ist
Zitat:
cab
cba
abc
bca
...
Sind da 29 Thread gelaufen oder warum steh 29 mal 'Thread finished' in der unteren Listbox?
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := Round(BruteForce1.Percent);
end;
Warum hat deine Komponente kein Ereignis, welches den Fortschritt zurückgibt? Mit einem Timer ständig abzufragen, wie weit er ist, ist mehr als unglücklich.
Nachtarg: Beim Beenden deines Demos, hat es mich mit Fehlern nur so zugeschmissen.