Hallo JumpFrog,
ich hatte dein Code erstmal nur überflogen, aber ein paar Sachen möchte ich noch anmerken:
- Kennt ihr noch keine for-Schleifen? Ihr kennt doch for-Schleifen!? Weil eigentlich ließen sich alle dadurch ersetzen. Zudem können for-Schleifen NIE in eine Endlosschleife geraten.
- Dein neuer Code sieht ja (gekürzt) ungefähr so aus:
Delphi-Quellcode:
if <Bedingung> then
begin
Anweisungen;
x := x + 1;
end
else
x := x + 1;
Nun führt er ja x := x + 1 immer aus. Also könnte das außerhalb des ifs:
Delphi-Quellcode:
if <Bedingung> then
begin
Anweisungen;
end;
x := x + 1;
- Mithilfe von
Randomize kannst du jedesmal eine neue Anzahl von Zufallszahlen erstellen. Ansonsten trifft das nicht immer zu und unter Umständen (wann genau weiß ich nicht) ist die Reihenfolge der Zufallszahlen immer gleich.
- In BtnerzClick greifst du auf a zu, obwohl das doch c sein müsste (Z. 77)?
Ansonsten wie gesagt einfach mal Debuggen!
MfG
xZise