manchmal ist es ganz praktisch auf Prozedur-Parameter mittels ihrer Speicheradressen zuzugreifen, wie beispielsweise in diesem Codefragment:
Code: Alles auswählen
Procedure Show (count, v1.s="", v2.s="", v3.s="", v4.s="", v5.s="", v6.s="")
Protected *p, i
Debug "-- Debug"
Debug "*p1 = " + Str(@v1)
Debug "*p2 = " + Str(@v2)
Debug "*p3 = " + Str(@v3)
Debug ""
Debug "-- Tiere"
*p = @v1
For i = 1 To count
Debug PeekS(*p)
*p + 24 ; PB 4.30 unter Windows XP x86
Next
EndProcedure
Show(3, "Katze", "Hund", "Fisch")
Gruß, Little John