PureBoard

Verfasst: **27.05.2006 12:43**

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

Verfasst: **27.05.2006 12:52**

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

Verfasst: **27.05.2006 13:04**

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.......

Verfasst: **27.05.2006 13:04**

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

Verfasst: **27.05.2006 14:02**

-2147483648 bis +2147483647

Verfasst: **28.05.2006 12:16**

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

PureBoard

Dimensioniere Array ?

Dimensioniere Array ?