problem mit arrays in prozeduren

[bob_grey]

verknappt lässt sich das problem auf folgendes reduzieren:
ich erstelle ein array, kann aber nicht in der prozedur darauf zugreifen, obwohl ich sie als global deklariert habe

hier als kurzer code zum selber ausprobieren:

Dim array.l (1,2,3)
Global array

Procedure asdf()
array(1,1,1) = 1
EndProcedure

ich hab bisher noch nix bezüglich dieses problems gefunden, vielleicht mach ich auch nur nen anfängerfehler

thia

bob_grey

[AND51]

Falsche Syntax: Du setzt eine Variable namens "array" auf global anstatt das Array.

Du müsstest Global Dim array.l(1,2,3) schreiben, um das Array auf global zu setzen.

Tipp: Verwende EnableExplicit in PB 4.00 oder höher. In PB 3.94 oder tiefer sind Arrays immer automatisch global.

[STARGÅTE]

In PB 3.94 oder tiefer sind Arrays immer automatisch global.

FALSCH

ich muss bei 3.3 auch immer erst das Array in der Procedure freigeben :

Code: Alles auswählen

Dim array.l(10)

procedure Test()
 shared array
 array(0) = 3
endprocedure

Test()

debug array(0) 

[bob_grey]

thx, jetzt funktionierts

[Green Snake]

In PB 3.94 oder tiefer sind Arrays immer automatisch global.

FALSCH

ich muss bei 3.3 auch immer erst das Array in der Procedure freigeben :

Ne, muss man nicht...

[STARGÅTE]

*kopfkratz*

STIMMT, geht ja doch ohne

sry AND51

..

komisch vor 2 Monaten gings noch nicht

[AND51]

> sry AND51
Nicht schlimm. Ich habe eh nur Erfahrung mit 3.94. Dass das, was ich sagte, auch für vorige Versionen gilt, war eh nur erraten

Ansonsten überasse ich weiterhin gern dir das 3.30-Feld...

[ts-soft]

Hier mal die üblichen PB4 Varianten (ohne Global)

Code: Alles auswählen

Dim bla.l(1) ; muß vor Nutzung per Shared deklariert sein

Procedure a()
  Shared bla.l()
  bla(0) = 1
EndProcedure

Procedure b(array.l(1)); Array als Parameter (1 gibt die Dimensionen an)
  array(1) = 2
EndProcedure

a()
b(bla())

Debug bla(0)
Debug bla(1)

Ich hoffe das hat gehilft