Seite 1 von 1
[Bug] Declare von Proceduren mit LinkedList übergabe
Verfasst: 17.02.2006 12:58
von 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?
Re: [Bug] Declare von Proceduren mit LinkedList übergabe
Verfasst: 17.02.2006 16:13
von ts-soft
Pelagio hat geschrieben:
Habe ich dies richtig erkannt?
Keine Ahnung, mit welcher Beta Du diesen Fehler hast, in PB4 Beta 3
funktioniert Dein Code einwandfrei
Verfasst: 17.02.2006 19:59
von 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
Verfasst: 17.02.2006 20:03
von ts-soft
Okay, ich wundere mich, hättest aber schreiben sollen, das es erst nach
mehrmaligen starten einen Fehler gibt
Verfasst: 17.02.2006 20:05
von 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!!!!!
Verfasst: 17.02.2006 20:08
von ts-soft
Dann poste das mal im engl. Forum, oder vielleicht liest Freak ja mit.
Mein englisch ist zu dürftig.
Verfasst: 17.02.2006 20:11
von 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.
Verfasst: 18.02.2006 01:52
von Andre
Habe Fred + fr34k auf diesen Thread hingewiesen.
Verfasst: 18.02.2006 03:14
von Andre
Info von Fred: ist gefixt.
