system7/SYSWSTR.PAS

   1 unit syswstr;\r
   2 {X: this unit contains some definitions and initializations, needed to\r
   3     support wide string variables. To use it, just place reference to syswstr\r
   4     unit in your dpr/units uses clause *as first as possible* }\r
   5 \r
   6 interface\r
   7 \r
   8 implementation\r
   9 \r
  10 initialization\r
  11 \r
  12   WStrAddRefProc := WStrAddRef;\r
  13   WStrClrProc := WStrClr;\r
  14   WStrArrayClrProc := WStrArrayClr;\r
  15 \r
  16 finalization\r
  17 \r
  18 end.\r