Local str:String = "mein text"

For Local x:Int = 0 To str.Length - 1
	Print str[x]
Next

input_string$ = GadgetText$(Textfeld1) 
input_as_integer% = input_string.toInt()

Function Zahleneingabe()

Local c%[]=[0,1,2,3,4,5...] 'das hier ist ein Array - mit den werten von 0 bis 100 nehme ich an.
Local a$   'Variable local deklarieren

    A$ = GadgetText$(Textfeld1)       'Inhalt Textfeld einer Variabeln zuordnen
      c% =Int(a$)                             'kläglicher Versuch des konvertierens 'hier versuchst du, den array Zeiger zu überschreiben. Mit einem Int -> geht nicht, da hier ein Int[] vorliege
       c% = a$                                  'funktioniert auch nicht 'hier versuchst du, einen String als Int[] einzutragen -> Fehler.

If GadgetText$(Textfeld1)= c% Then Notify"super"     'einfache Ausgabe wenns funktioniert


End Function 

Local inputString:String = GagdetText(Textfeld1)
Local inputInteger:Int = inputString.toInt() 'als integer umformen.

If inputInteger < 0 Or inputInteger > 100 Then 
      Return 0
Else
      'inputinteger ist ein wert zwischen 0 und 100.
EndIf

Local arr:Int[] = [1,3,5,7...] '1 bis 99 - jede ungrade zahl (als beispiel)

Local inputString:String = GagdetText(Textfeld1)
Local inputInteger:Int = inputString.toInt()

Local _isInArray:Int = -1 'hilfs variable

For Local i:Int = 0 Until Len(arr) 'len liefert die Anzahl der Einträge im array! mit until wird Len()-1 durchgezählt.
      If arr[i] = inputInteger Then 'der Eintrag nummer i entspricht unserer zahl!
          _isInArray = i 'hier den index eintragen, falls benötigt.
          Exit 'wir haben unsere Zahl erkannt, also braucht nicht weitergesucht werden : Forschleife verlassen
     EndIf
Next

If _isInArray > -1 Then 'tritt dieser fall ein, wurde _isInArray gesetzt -wir können also davon ausgehen, das die eingegebene Zahl auch im Array existiert.
            'Hier weiterarbeiten.
EndIf 

' setgadgetfilter.bmx

Import MaxGui.Drivers

Strict 

Local window:TGadget
Global textarea:TGadget

window=CreateWindow("My Window",30,20,320,240)

textarea=CreateTextArea(0,24,ClientWidth(window),ClientHeight(window)-24,window)

SetGadgetLayout textarea,1,1,1,1
SetGadgetText textarea,"A textarea gadget that filters out down arrows~nand tab keys."
ActivateGadget textarea

SetGadgetFilter textarea,filter

Print "KEY_TAB="+KEY_TAB

Function filter(event:TEvent,context:Object)
	Select event.id
		Case EVENT_KEYDOWN
			Print "filtering keydown:"+event.data+","+event.mods
			If event.data=KEY_DOWN Return 0
			If event.data=13 Return 0
		Case EVENT_KEYCHAR
			Print "filtering charkey:"+event.data+","+event.mods
			
			'HIER FILTERST DU ALLE ASCII KEYCODES AUS DIE KEINE ZAHLEN SIND!
			'DIE ASCII KEYCODES DER ZAHLEN REICHEN VON 48 BIS 57!
			If( event.data < 48 Or event.data > 57 ) Return 0
	End Select
	Return 1
End Function

While WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
Wend

While WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_GADGETACTION
			Local tmpGadget:TGadget = TGadget(EventSource())
			If tmpGadget = TextArea
					TestGegenHundert tmpGadget
			EndIf
	End Select
Wend

Function TestGegenHundert(TextFeld:TGadget)
     If GadgetText(TextFeld).ToInt()>100
           SetGadgetText Textfeld, GadgetText(TextFeld)[..2]
     EndIf
End Function