Großes Array initialisieren

[Rolf]

Hallo
Ich muss ein großes Array mit mehr als 512 Int-Werten vorbelegen, wie macht man das am besten.

Code: Alles auswählen

LOCAL aEl8      := Array(512)
aEL8 := { 352, 77, 373, 504, 35, 599, 428, 207, 409,.......}

Beim Compilieren kommt dann.
"XBT0400: Internal error: contact ALASKA technical support"

Ich möchte nun nicht unbedingt aEL[1]:=352 .... nehmen, gibt es einen besseren Weg?

Danke
Rolf

[Koverhage]

Rolf,

kommt die Fehlermeldung schon bei Array(512)
oder bei aEL8 := { 352, 77, 373, 504, 35, 599, 428, 207, 409,.......} ?
Normal kannst Du doch das doch so machen
Local aEL8 := { 352, 77, 373, 504, 35, 599, 428, 207, 409,.......}

[Martin Altmann]

Rolf,
soweit ich mich erinnere, ist das "normal", da zu viel Speicher in einem Rutsch allokiert werden soll.
Versuch es in kleineren Schritten, in 64-Elemente-Happen z.B...

Code: Alles auswählen

LOCAL aEl8      := {}
aAdd( aEL8, { 352, 77, 373, 504, 35, 599, 428, 207, 409,.......} )
aAdd( aEL8, { .......} )
... 

Viele Grüße,
Martin

[Rolf]

@Koverhage

kommt die Fehlermeldung schon bei Array(512)
oder bei aEL8 := { 352, 77, 373, 504, 35, 599, 428, 207, 409,.......} ?
Normal kannst Du doch das doch so machen
Local aEL8 := { 352, 77, 373, 504, 35, 599, 428, 207, 409,.......}

Erst wenn die Zeile ":= {...}" vorhanden ist kommt eine Meldung beim compilieren. Mit
265 Array-Elementen funktioniert es noch.

@Martin
Deine Lösung erzeugt doch ein Mehrdimensionales-Array. Was sich dann wiederum schlechter durchlaufen lässt. Mal überlegen...

... Es geht auch noch mit 511 Integer-Elementen.

Danke Rolf

[Tom]

Code: Alles auswählen

aEl1 := { 1, 2, 3, 4 ... } // 256 Elemente
aEl2 := { 1, 2, 3, 4 ... } // auch 256
for i := 1 to len(aEl2) // oder to 256
  aadd(aEl1,aEl2[i])
next

[Koverhage]

Dann würde ich das so machen:

Local aArray := {}

aadd(aArray,352) // wert 1
aadd(aArray,77) // wert 2

ist zwar ein wenig mehr Schreibaufwand

oder eine DBF Datei erstellen und die Werte daraus bei Programmstart bzw. wenn diese zum ersten Mal benötigt
werden auslesen und die Datei schließen.

[Koverhage]

Habe mich gerade daran erinnert das ich auch so einen ähnlichen Fall habe
sind auch genau 512 Einträge. Es war mir damals zuviel Tipparbeit direkt ein Array anzulegen.

Code: Alles auswählen

static procedure ini_gtab
Local h_sel := select()
if !Fexists(cAppData+"ktabelle.dbf")
   msgbox("Die Datei "+cAppData+"Ktabelle.dbf fehlt, Datenverzeichnis zerstört?, bitte Support kontaktieren!" )
   return
endif
use (cAppData+"ktabelle.dbf") alias bw NEW
("bw")->(dbgotop())
do while !("bw")->(eof())
   AAdd( aBwstufe, {("bw")->kg_min,("bw")->kg_max} )
   ("bw")->(dbskip(1))
enddo
("bw")->(DbCloseArea())
select(h_sel)
return

[brandelh]

Rolf,
soweit ich mich erinnere, ist das "normal", da zu viel Speicher in einem Rutsch allokiert werden soll.
Versuch es in kleineren Schritten, in 64-Elemente-Happen z.B...

Das ist nicht ganz richtig.

Das Problem sind nicht die 512 Einträge im Array, sondern die direkte Zuweisung
von aA := {...} 512 Elementen. Ich vermute das haut den Präprozessor auseinander.

So jedenfalls geht es:

Code: Alles auswählen

proc main
   local aA := Array(4096) // ich wollte es wissen ;-)
   local x, nMaxX := len(aA)
   ? "OK",nMaxX
   for x := 1 to nMaxX
       aA[x] := x
   next
   ? "Ende"
endif

falls du jetzt die Integers nicht nochmal eintippen willst, kannst du die kleineren zum Laden nehmen, aber bitte nicht mit add() bei der Menge

Code: Alles auswählen

x := 1
aM1 := {1,2,3,4,5,6,...}
aM2 := {1,2,3,4,5,6,...}
etc.
aeval(aM1,{|nW| aZiel[x] := nW, x++ })
aeval(aM2,{|nW| aZiel[x] := nW, x++ })
etc.
so sollte das am schnellsten gehen ;-) 

bei direkter Eingab könnte dir auch das gefallen:

Code: Alles auswählen

x := 1
aA[x++] := ...

Übrigens wird duch aA := {x,x,x} die vorher erfolgreiche aA := array() wieder aufgehoben !

[Rolf]

Danke für eure Ausführungen.

@ Hubert
Vielen Dank wie immer sehr ausführlich . Ich werde mich für die Variante aeval() entscheiden. Da noch ein größeres Array wartet.

Danke an alle
Rolf