19 lines
403 B
ObjectPascal
19 lines
403 B
ObjectPascal
|
unit syswstr;
|
||
|
|
{X: this unit contains some definitions and initializations, needed to
|
||
|
|
support wide string variables. To use it, just place reference to syswstr
|
||
|
|
unit in your dpr/units uses clause *as first as possible* }
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
initialization
|
||
|
|
|
||
|
|
WStrAddRefProc := WStrAddRef;
|
||
|
|
WStrClrProc := WStrClr;
|
||
|
|
WStrArrayClrProc := WStrArrayClr;
|
||
|
|
|
||
|
|
finalization
|
||
|
|
|
||
|
|
end.
|