Einige Probleme mit Random

[idefix]

Hi Butch,
Deine Fehler dürften relativ leicht zu beheben sein:

1.)
Erzeuge ein OnCreate-Eventhandler für Deine Form
2.)
Schreibe dort eine Schleife, die alle Felder des Arrays "Feld" auf den
Wert "10" setzt. 10=kein Wert
3.)
Verschiebe folgende Zeile aus der Funktion "GiveRandom" ins
Tform1.OnCreate-Event:
"Gezogene := TStringList.Create;"
Bedenke "GiveRandom" ist rekursiv!!
In Deinem Fall erzeugt Du 1 Instanz von "Gezogene", die dann
im RAM hängen bleibt. Außerdem wird nur der Else-Teil der If-Bedingung
ausgeführt.
4.)
Nach dem Aufruf von GiveRandom schreibe noch folgendes:
"Gezogene.Clear".
5.)
Verschiebe die Deklaration der Variable "Gezogene" in die private
Section der Klassendeklaration von form1
6.)
Erzeuge ein OnDestroy-Eventhandler für Deine Form.
7.)
Und füge dort folgende Zeile ein:
"Gezogene.Free"

Mfg, Idefix