Yesterday, 03:27 PM
(This post was last modified: Yesterday, 03:45 PM by Kernelpanic.)
@Ikerkaz - That's possible with a record array; I've posted about it a few times already.
PS: Extended with name
PS: Extended with name
Code: (Select All)
'Recordarraybeispiel - 5. Maerz 2026
Option _Explicit
Type Thing
Namez As String
Index As Integer
End Type
Dim Liste(4) As Thing
Dim As Integer wert
Dim As String namen
Locate 2, 3
Input "Ganze Zahl eingeben: ", wert
Liste(1).Index = wert
Locate 3, 3
Print "Ihre Eingabe war: "; Liste(1).Index
Locate 5, 3
Input "Ihr Name: ", namen
Liste(2).Namez = namen
Locate 6, 3
Print "Ihr Name lautet: "; Liste(2).Namez
End

