Advertisement
Mysoft

Untitled

Dec 27th, 2015
631
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. type fbstr
  2.   pzData as zstring ptr
  3.   iLen as integer
  4.   iSize as integer
  5. end type
  6.  
  7. #define MidConstString(_sSrc,_iStart,_iLen) *cast(string ptr,@(type<fbstr>(cast(zstring ptr,cast(fbstr ptr,@(str(_sSrc))))+(_iStart),_iLen,_iLen)))
  8.  
  9. print MidConstString("Hello World",4,6)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement