TaskRecall/StrMan.inc at master · mantun/TaskRecall · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
{===============================================================================
StrMan.pas include file (Version:  2.4r)

CONDITIONAL DEFINES:
StrManEnableERaise
  If False then normal raise.exception.create calls are used.

StrManIncludeGeneralTypes
  You can "export" general types/constants to another central unit and place it
  in the uses clause below.

StrManEnableSMinstance
  You may choose too create another instance of TStringCollection.

StrManEnableASM
  If you disable this define you will use pure Delphi code. (no assembler)
-------------------------------------------------------------------------------}


{$DEFINE StrManEnableERaise}
{$DEFINE StrManIncludeGeneralTypes}
{$DEFINE StrManEnableSMinstance}
{$DEFINE StrManEnableASM}

//uses clause
uses Windows, SysUtils,
     {$IfDef VER140} //Delphi 6
     Variants,
     {$EndIf}
     {$IfDef VER150} //Delphi 7
     Variants,
     {$EndIf}
     {$IfDef VER170} //Delphi 9
     Variants,
     {$EndIf}
     Classes;