Ich versuche verzweifelt STARGATE zu erklären, warum das Poken in vor allem vorher nicht alloziierten Strings gefährlich ist. Doch er will es mir nicht glauben. Er meint, das Beispiel, welches er mir geschickt hat sei nur lauffähig wegen PB 3.3:
Code: Alles auswählen
String$ = ""
Procedure WriteStringLong(String, Position, Long)
PokeL(String+4*Position, Long)
EndProcedure
Procedure ReadStringLong(String, Position)
ProcedureReturn PeekL(String+Position*4)
EndProcedure
WriteStringLong(@String$,0,12)
WriteStringLong(@String$,1,24)
WriteStringLong(@String$,2,36)
WriteStringLong(@String$,5,48)
Debug ReadStringLong(@String$,0)
Debug ReadStringLong(@String$,1)
Debug ReadStringLong(@String$,2)
Debug ReadStringLong(@String$,5)
Vielleicht kann einer von euch ihn dazu überzeugen. Bitte helft mir, ich hab keine Zeit mehr mit ihm darüber zu quatschen!!

