Randomize
Zitat von
OH: Randomize:
Kombinieren Sie in einer Schleife nicht den Aufruf von Randomize mit Aufrufen der Funktion Random. Normalerweise wird Randomize vor den Aufrufen von Random nur einmal aufgerufen.
Also nur einmal bei Programmstart aufrufen und nicht bei jedem Buttonklick erneut.
Zitat:
{of ggT}
Mit einer halbwegs ordentlichen Codeformatierung und einem übersichtlichen Codeaufbau ist sowas vollkommen unnötig.
Insgesammt ist vorallem die Codeeinrückung grauenhaft.
Es würde dann sogar auffallen, daß da so Einiges nicht stimmt. (z.B. mehrere fehlende ENDs)
Laut deiner Beschreibung klingt es so, als wenn das Ganze erstmal funktioniert, bzw sich winigstens kompilieren ließe.
Von einer Fehlerbeschreibung ist nichts zu finden oder zu erahnen.
(aber auf den ersten Blick müßte da sofort der Compiler aufgeben)
Vorallem daß einige Dinge doppelt vorhanden sind (z.B. die komplette Button1-Klickmethode), das kann nicht ganz richtig sein.
Zitat:
if InttoStr(gggT) = EditZahl6.Text then
Besser andersrum
if gggT = StrToInt(EditZahl6.Text) then
, denn du willst ja eigentlich den Wert der Zahl vergleichen und nicht die Darstellung der Zahl.