Forum: Object-Pascal / Delphi-Language
Delphi
by _frank_,
6. Apr 2009
der code, den ich angehängt hatte war doch deiner nur bisschen verändert ;)
Gruß Frank
Forum: Object-Pascal / Delphi-Language
Delphi
by _frank_,
5. Apr 2009
der arme JumpFrog...wir finden mehr Fehler als ihm lieb ist.
einen hab ich noch:
er vergleicht immer nur das aktuelle feld mit der aktuellen Zufallszahl.es sind also doppelte werte möglich. ich denke mal, er versucht mit der inneren schleife dies zu verhindern. dazu müsste er aber feld mit loZahl vergleichen und auch nur bis a (=aktuelle position) die schleife laufen lassen.
natürlich c...
Forum: Object-Pascal / Delphi-Language
Delphi
by _frank_,
5. Apr 2009
stimmt, war ja "aus 49"...ich spiel kein lotto :) gut aufgepasst
Gruß Frank
Forum: Object-Pascal / Delphi-Language
Delphi
by _frank_,
5. Apr 2009
richtig, und wo ist das Problem? es soll ja ein lotto-Programm werden, und es werden immer nur 6 zahlen "gezogen" und beim Ziehen abgeglichen. Es gibt also nie den Zustand, dass 48 Zahlen gleichzeitig daliegen und versucht wird eine 49. zu finden (welches zu einer Endlosschleife führen würde).
Gruß Frank
Forum: Object-Pascal / Delphi-Language
Delphi
by _frank_,
5. Apr 2009
der Zählfehler kommt daher, dass du zwar bis 5 gehst, aber den index nirgends nutzt.
hier mal bisschen gekürzt...a und i brauchst nicht.
procedure TForm1.BtnGroClick(Sender: TObject);
var
x,zahl:Integer;
begin
x:=0;
zahl:=0;
Forum: Object-Pascal / Delphi-Language
Delphi
by _frank_,
5. Apr 2009
meinte zwar alle code-dateien (also auch die projektdatei und das formular),
aber ich habs jetzt mal zusammengebastelt, hab aber noch keine endlosschleife provozieren können. bei welcher konstellation kommt diese denn in welcher methode?
Gruß Frank
Forum: Object-Pascal / Delphi-Language
Delphi
by _frank_,
5. Apr 2009
bevor wir weiter rumrätseln...
das einfachste wäre, das programm zu starten und bei der Endlosschleife mit dem Debugger anzuhalten...dann siehst wo der momentane Ausführungspunkt ist...
evtl kannst du auch mal den kompletten code veröffentlichen.
Gruß Frank
Forum: Object-Pascal / Delphi-Language
Delphi
by _frank_,
5. Apr 2009
recht haste :) hab vor laute while-schleifen da auch eine gesehen ;) sorry
Gruß Frank
Forum: Object-Pascal / Delphi-Language
Delphi
by _frank_,
5. Apr 2009
deine Einrückung ist falsch :) wenn du sie richtig machst, wird der fehler klarer:
while x<=5 do
begin
If Feld>=10 then
zahl:=zahl+1;
a:=a+1;
x:=x+1
end;