Seite 1 von 1

LinkedList() als Parameter übergeben ???

Verfasst: 16.06.2006 19:08
von stab
Hallo PureBasic Freunde!


PB4:

Gibt es die Möglichkeit, eine LinkedList() als Parameter zu übergeben?

Also z.B:

Code: Alles auswählen


NewList L1(): NewList L2(): NewList L3()

Procedure diese_brauche_ich_oefter (zubearbeitendeListe)
AddElement(zubearbeitendeListe)
CountList(zubearbeitendeListe) 
; 
; 
ForEach zubearbeitendeListe
Beep_(400,50)
Next
; usw.
EndProcedure



Danke für die Antworten!
st-a-b
[/code]

Verfasst: 16.06.2006 19:17
von ts-soft
http://www.purebasic.fr/german/viewtopic.php?t=8881
Guck Dir einfach den ersten Parameter an :wink:

Verfasst: 23.06.2006 04:56
von stab
Ja, danke nochmal.

Einfacher, als ich dachte.

Ich hatte es schon mit allen möglichen Pointern versucht.
Habe aber auch sonst keine Hinweise gefunden.

- stab -

Verfasst: 23.06.2006 10:43
von bobobo
das ist seid PB4 eingebaut und geht so

Code: Alles auswählen

;PB4
NewList L1()
NewList L2()
NewList L3() 

Procedure diese_brauche_ich_oefter (zubearbeitendeListe()) 
  AddElement(zubearbeitendeListe()) 
  zubearbeitendeListe()
  Debug CountList(zubearbeitendeListe()) 
ForEach zubearbeitendeListe() 
Beep_(400,50) 
Next 
; usw. 
EndProcedure


diese_brauche_ich_oefter(L1())
diese_brauche_ich_oefter(L1())
diese_brauche_ich_oefter(L2())
diese_brauche_ich_oefter(L2())
diese_brauche_ich_oefter(L3())

Verfasst: 23.06.2006 11:12
von Dostej
Geht das eigentlich nun auch mit Arrays?

Verfasst: 23.06.2006 11:30
von ts-soft
Dostej hat geschrieben:Geht das eigentlich nun auch mit Arrays?

Code: Alles auswählen

Procedure Test(Array(2)); 2 = 2 Dimensionen
  Array(0,0) = 100
  Array(0,1) = 200 
EndProcedure

Dim MyArray.l(5,5)

MyArray(0,0) = 50
Debug MyArray(0,0)

Test(MyArray())

Debug MyArray(0,0)
Debug MyArray(0,1)
Code sagt mehr als Worte ...

Verfasst: 23.06.2006 11:56
von bobobo
oder auch

Code: Alles auswählen

Dim dumm(10)
For i=0 To 10
  dumm(i)=i
Next i

Procedure guckmal(test(1))  ; die 1 bezeichnet hier die Anzahl der Dimensionen des Arrays
  For i=0 To 10
    Debug test(i)
  Next i
EndProcedure

guckmal(dumm())

Verfasst: 24.06.2006 01:59
von Andre
Siehe auch die neue/erweiterte Beschreibung in der Hilfe zu Prozeduren:
http://www.purearea.net/pb/german/manua ... dures.html

Verfasst: 24.06.2006 11:31
von AND51
ts-soft hat geschrieben:Code sagt mehr als Worte ...
In diesem Fall hätt's aber auch ein einfaches "Ja" getan... :D