Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.636 Beiträge
Delphi 12 Athens
|
AW: Zahlenkombinationen generieren
12. Mai 2011, 15:01
Hast Du einmal die Bereichsprüfung aktiviert? Mir kommt diese Stelle nicht ganz koscher vor:
Zitat:
Delphi-Quellcode:
for j:=0 To stellen -1 do
if pos[j]=max+1 then begin
pos[j]:=1;
Inc(pos[j+1]); //was ist, wenn das letzte Array-Element erreicht ist?
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|