Arrays of record variables

[Kernelpanic]

I didn't find anything about arrays of record variables in the wiki. Here is an example of how to create such arrays.
The first representation is specified in the program, the second can be entered yourself.
Hm, is not a programm, so here.

Code: (Select All)

'Recordarrays. Uebergabe von Recordtype an Array - 1. April 2024



$Console:Only



Option _Explicit



Declare Sub Anzeigen(Motorrad As Any)



'Definition der Datenstruktur

Type MotorradModell

  Modell As String * 30

  Farbe As String * 10

  Hubraum As String * 10

  Kilowatt As String * 15

  Fahrgewicht As String * 10

  Preis As String * 12

End Type



'Array. Global zur Verfuegung stellen in diesem

'Fall nicht noetig.

Dim MotFeld(1 To 10) As MotorradModell



'Modell eingeben

MotFeld(1).Modell = "Honda 350 CB"

MotFeld(1).Farbe = "Rot-Weiss"

MotFeld(1).Hubraum = "350 ccm"

MotFeld(1).Kilowatt = "23 Kilowatt"

MotFeld(1).Fahrgewicht = "156 KG"

MotFeld(1).Preis = "2355.00 Euro"



Locate 2, 0

Print "Daten Selbst eingeben:"



Locate 3, 0

Input "Modell    : ", MotFeld(2).Modell

Input "Farbe      : ", MotFeld(2).Farbe

Input "Hubraum    : ", MotFeld(2).Hubraum

Input "Kilowatt  : ", MotFeld(2).Kilowatt

Input "Fahrgewicht: ", MotFeld(2).Fahrgewicht

Input "Preis      : ", MotFeld(2).Preis



Cls 'Eingabe nicht stehen lassen

Locate CsrLin + 1, 0



'Uebergabe des Arrays von Recordvariablen, und anzeigen

Call Anzeigen(MotFeld(1))



'CsrLin ist noetig, da es sonst zu einer

'Ueberschneidung der Ausgabe kommt

Locate CsrLin + 2, 0

Call Anzeigen(MotFeld(2))



End 'Hauptprogramm



Sub Anzeigen (Motorrad As MotorradModell)



  Print Tab(4); "Modell    : ", Motorrad.Modell

  Print Tab(4); "Farbe      : ", Motorrad.Farbe

  Print Tab(4); "Hubraum    : ", Motorrad.Hubraum

  Print Tab(4); "Kilowatt  : ", Motorrad.Kilowatt

  Print Tab(4); "Fahrgewicht: ", Motorrad.Fahrgewicht

  Print Tab(4); "Preis      : ", Motorrad.Preis

End Sub