Elemente ans ende der Liste Hinzufügen

[Lukaso]

Hallo,

ich bräuchte ne möglichkeit, unabhängig von der aktuellen Position (NextElement() etc..) neue Elemente ans ende der Liste Hinzuzufügen, ohne die Position zu verändern.

Ich könnte ja mit LastElement() ans ende Springen, und meine Elemente hinzufügen und wieder zurückspringen, dass problem ist aber, dass ich im Programm mehrere gleichzeitige Lesevorgänge habe und so alles durcheinander kommen könnte.

Danke für eure Hilfe!

MFG Lukaso

[DarkDragon]

Du könntest die Liste aller aller höchstens durch LLHandle funktionen bearbeiten.

[NicTheQuick]

Ohne Kommentare...

Code: Alles auswählen

NewList LinkedList.l()

Procedure AddElementAfterLastWithValue(a.l)
  Protected *Mem
  *Mem = @LinkedList()
  If LastElement(LinkedList())
    If AddElement(LinkedList())
      LinkedList() = a
    EndIf
  EndIf
  ChangeCurrentElement(LinkedList(), *Mem)
EndProcedure

AddElement(LinkedList())
LinkedList() = 1

AddElementAfterLastWithValue(10)
AddElementAfterLastWithValue(44)
AddElementAfterLastWithValue(145)

Debug LinkedList()
Debug ""
ForEach LinkedList()
  Debug LinkedList()
Next

[Lukaso]

@NicTheQuick

Danke

Könntest du mir bitte mal das Fettgedruckte erklären?

Procedure AddElementAfterLastWithValue(a.l)
Protected *Mem
*Mem = @LinkedList()
If LastElement(LinkedList())
If AddElement(LinkedList())
LinkedList() = a
EndIf
EndIf
ChangeCurrentElement(LinkedList(), *Mem)
EndProcedure

Will nich dumm sterben

Danke Lukaso

[freedimension]

Procedure AddElementAfterLastWithValue(a.l)
Protected *Mem
*Mem = @LinkedList() ;Der Zeiger auf das aktuelle Element der Liste wird in *Mem gespeichert
If LastElement(LinkedList())
If AddElement(LinkedList())
LinkedList() = a
EndIf
EndIf
ChangeCurrentElement(LinkedList(), *Mem) ; die ursprüngliche Position der Liste wird mit Hilfe des zwischengespeicherten Zeigers wieder hergestellt
EndProcedure

[NicTheQuick]

Das steht ja im Grunde schon in der Hilfe.
Mit [c]*Mem = @LinkedList()[/c] wird der Zeiger zum aktuellen Element genommen und in [c]*Mem[/c] gespeichert.
Der Befehl [c]ChangeCurrentElement()[/c] wählt dann wieder das Element mit dem Zeiger [c]*Mem[/c] aus und macht es zum aktuellen.

Mir ist allerdings vorhin aufgefallen, dass das ganze nicht mehr so wunderbar funktioniert, wie es früher mal der Fall war. Wäre nämlich bei Aufruf der Procedure kein aktuelles Element da, würde die Zeile [c]*Mem = @LinkedList()[/c] fehlschlagen. Ich glaube bei PB V3.90 hat das noch funktioniert. Da war [c]*Mem = 8[/c] und [c]ChangeCurrentElement(LinkedList(), [/c] hat die LinkedListe dann resettet.

[Lukaso]

Danke für die Erklärung!

Ist das eigentlich schneller wie mit ListIndex() und SelectElement()?

Desweiteren stürtzt mir der Code mit Strings ab ....

Code: Alles auswählen

NewList LinkedList.s()

Procedure AddElementAfterLastWithValue(a.s) 
  Protected *Mem 
  *Mem = @LinkedList() 
  If LastElement(LinkedList()) 
    If AddElement(LinkedList()) 
      LinkedList() = a
    EndIf 
  EndIf 
  ChangeCurrentElement(LinkedList(), *Mem)
EndProcedure 

AddElement(LinkedList()) 
LinkedList() = "FLUMP" 

AddElementAfterLastWithValue("BLA1")
AddElementAfterLastWithValue("BLA2")
AddElementAfterLastWithValue("BLA3") 

Debug LinkedList() 
Debug "" 
ForEach LinkedList() 
  Debug LinkedList() 
Next

Ansonsten Danke!

MFG Lukaso

[NicTheQuick]

Wenn das mit Strings abstürzt, kann das nur ein PB-Bug sein.

[Andre]

Wenn das mit Strings abstürzt, kann das nur ein PB-Bug sein.

Habs mal an Fred gemeldet.

[Andre]

Ok, Rückantwort von Fred ging schnell:

That's because a @LinkedList of string type returns the string address. I will change that for the next beta.

Das obige Verhalten resultiert also daraus, dass bei Verwendung von @LinkedList auf den Stringtyp auch die String-Adresse zurückgegeben wird. Er wird's für die nächste Beta ändern...