Advertisement
Mysoft

Untitled

Jul 9th, 2025
229
0
12 hours
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. type MyType
  2.   First as long
  3.   B     as string
  4. end type
  5.  
  6. dim as MyType tArray(5), tBlank
  7. tBlank.First = -1 : tBlank.B = "Blank"
  8.  
  9. with tArray(0)
  10.   *cptr( MyType ptr , @.First ) = tBlank 'setting the "with" element
  11.   print .First
  12.   print .B
  13. end with
  14.  
  15. sleep
  16.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement