[Bug] Declare von Proceduren mit LinkedList übergabe

[Pelagio]

Hallo Leidensgenossen,

Das Problem welches ich habe ist das wenn ich eine Procedure deklariere in der eine LinkedList übergeben wird, gibt es einen Fehler.
Funktionsfähiger Code

Code: Alles auswählen

NewList Test.Point()
AddElement(Test()): Test()\x=1
AddElement(Test()): Test()\x=2

Procedure DebugList(List.Point())
   ForEach List()
    MessageRequester("List", Str(List()\x))
   Next
  AddElement(List()): List()\x=3
EndProcedure

DebugList(Test())
ForEach Test(): MessageRequester("Test", Str(Test()\x)): Next
End

FehlerCode

Code: Alles auswählen

Declare DebugList(List.Point())

NewList Test.Point()
AddElement(Test()): Test()\x=1
AddElement(Test()): Test()\x=2

DebugList(Test())
ForEach Test(): MessageRequester("Test", Str(Test()\x)): Next
End

Procedure DebugList(List.Point())
   ForEach List()
    MessageRequester("List", Str(List()\x))
   Next
  AddElement(List()): List()\x=3
EndProcedure
  

Habe ich dies richtig erkannt?

[ts-soft]

Habe ich dies richtig erkannt?

Keine Ahnung, mit welcher Beta Du diesen Fehler hast, in PB4 Beta 3
funktioniert Dein Code einwandfrei

[Pelagio]

@ts-soft

Mach es Dir nicht so einfach, versuche doch einmal den Code nach dem du ihn laufengelassen hast noch einmal zu starten!!!!!

Mach es Bitte und wundere Dich

[ts-soft]

Okay, ich wundere mich, hättest aber schreiben sollen, das es erst nach
mehrmaligen starten einen Fehler gibt

[Pelagio]

@ts-soft

Das habe ich auch erst jetzt bemerkt, aber versuch doch mal bitte folgenden Code:

Code: Alles auswählen

Declare DebugList (List.Point()) 
Declare DebugList2(List.Point()) 

NewList Test.Point() 
AddElement(Test()): Test()\x=1 
AddElement(Test()): Test()\x=2 

DebugList(Test()) 
ForEach Test(): MessageRequester("Test", Str(Test()\x)): Next 
DebugList2(Test()) 
End 

Procedure DebugList(List.Point()) 
   ForEach List() 
    MessageRequester("List", Str(List()\x)) 
   Next 
  AddElement(List()): List()\x=3 
EndProcedure 

Procedure DebugList2(List.Point()) 
   ForEach List() 
    MessageRequester("List", Str(List()\x)) 
   Next 
  AddElement(List()): List()\x=3 
EndProcedure 

Wundere Dich nochmals, ich hatte recht: ERROR!!!!!

[ts-soft]

Dann poste das mal im engl. Forum, oder vielleicht liest Freak ja mit.
Mein englisch ist zu dürftig.

[Pelagio]

@ts-soft

Mein englisch ist so gut wie nicht vorhanden, ich bin schon froh darüber das ich mich hier in deutsch verständlich machen kann.

[Andre]

Habe Fred + fr34k auf diesen Thread hingewiesen.

[Andre]

Info von Fred: ist gefixt.