Dimensioniere Array ?

[Ironsmurf]

Hallo zusammen

kleines Problem, ich möchte eine einfache Datenbank schreiben, funktioniert auch alles sehr gut, aber nach max 120 Datensätzen ist schluß.
Setze ich die Zahl höher findet er garnichts mehr.

Code: Alles auswählen

Dim Movies.s(120)

Movies(0) = "007 James Bond - Der Morgen stirbt nie"
Movies(1) = "007 James Bond - Die Welt ist nicht genug"

;#########################################################

;Movies
       SortArray (Movies(),2)
     For Index.b = 0 To 120
    Ausgabe$ = movies.s(index)
   If FindString (LCase(Ausgabe$),LCase(Eingabe$),1)
  ConsoleColor(14,0) : Print_s(Ausgabe$)
 EndIf
Next

Wo ist das Problem - Vielen Dank für eure Hilfe

[SoS]

Dein Problem liegt in

Code: Alles auswählen

For Index.b = 0 To 120 

Code: Alles auswählen

Name      Erweiterung Speicherverbrauch        Bereich 
Byte            .b             1 Byte        -128 bis +127 

[manunidi]

Aber byte geht doch bis 127, dann müsste eigentlich da erst schluss sein! Warum geht es ab 121 nicht mehr, das kann ich mir nicht erklären.......

[Ironsmurf]

Ok, habe den INDEX ohne .b gesetzt, es klappt, aber wieviel Datensätze kann ich jetzt einfügen ?

[STARGÅTE]

-2147483648 bis +2147483647

[PureBaser]

Evtl. ist das Problem in der anderen Prozedur Print_s zu finden, weil man so den Code nicht ausführen kann