Subversion Repositories autosfx

Rev

Rev 1 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 2
Line 39... Line 39...
39 
 
 39 
 
40 
  C_ASFX_ET_HER = 'AutoSFX Extraction Target: Extract here';
 40 
  C_ASFX_ET_HER = 'AutoSFX Extraction Target: Extract here';
41 
  C_ASFX_ET_DES = 'AutoSFX Extraction Target: Extract to Desktop';
 41 
  C_ASFX_ET_DES = 'AutoSFX Extraction Target: Extract to Desktop';
42 
  C_ASFX_ET_ASK = 'AutoSFX Extraction Target: Choose directory';
 42 
  C_ASFX_ET_ASK = 'AutoSFX Extraction Target: Choose directory';
43 
 
 43 
 
44 
  EINRUECK      = '> '; // Optional
 44 
  EINRUECK      = '> '; // Optional to all C_ASFX
45 
 
 45 
 
46 
const
 46 
const
47 
  CB_DEFAULT = cbAvoid;
 47 
  CB_DEFAULT = cbAvoid;
48 
  CP_DEFAULT = cpNone;
 48 
  CP_DEFAULT = cpNone;
49 
  ET_DEFAULT = etExtractHere;
 49 
  ET_DEFAULT = etExtractHere;
Line 107... Line 107...
107 
  end;
 107 
  end;
108 
end;
 108 
end;
109 
 
 109 
 
110 
function StripBehavior(c: string): string;
 110 
function StripBehavior(c: string): string;
111 
 
 111 
 
112 
  procedure StripIt(s: string);
 112 
  procedure StripIt(s: string; allowEinrueck: boolean);
- 
 
 113 
  begin
- 
 
 114 
    if allowEinrueck then
113 
  begin
 115 
    begin
114 
    c := StringReplace(c, EINRUECK + s+#13#10, '', [rfReplaceAll, rfIgnoreCase]);
 116 
      c := StringReplace(c, EINRUECK + s+#13#10, '', [rfReplaceAll, rfIgnoreCase]);
115 
    c := StringReplace(c, EINRUECK + s+#13,    '', [rfReplaceAll, rfIgnoreCase]);
 117 
      c := StringReplace(c, EINRUECK + s+#13,    '', [rfReplaceAll, rfIgnoreCase]);
116 
    c := StringReplace(c, EINRUECK + s+#10,    '', [rfReplaceAll, rfIgnoreCase]);
 118 
      c := StringReplace(c, EINRUECK + s+#10,    '', [rfReplaceAll, rfIgnoreCase]);
117 
    c := StringReplace(c, EINRUECK + s,        '', [rfReplaceAll, rfIgnoreCase]);
 119 
      c := StringReplace(c, EINRUECK + s,        '', [rfReplaceAll, rfIgnoreCase]);
- 
 
 120 
    end;
118 
 
 121 
 
119 
    c := StringReplace(c, s+#13#10, '', [rfReplaceAll, rfIgnoreCase]);
 122 
    c := StringReplace(c, s+#13#10, '', [rfReplaceAll, rfIgnoreCase]);
120 
    c := StringReplace(c, s+#13,    '', [rfReplaceAll, rfIgnoreCase]);
 123 
    c := StringReplace(c, s+#13,    '', [rfReplaceAll, rfIgnoreCase]);
121 
    c := StringReplace(c, s+#10,    '', [rfReplaceAll, rfIgnoreCase]);
 124 
    c := StringReplace(c, s+#10,    '', [rfReplaceAll, rfIgnoreCase]);
122 
    c := StringReplace(c, s,        '', [rfReplaceAll, rfIgnoreCase]);
 125 
    c := StringReplace(c, s,        '', [rfReplaceAll, rfIgnoreCase]);
123 
  end;
 126 
  end;
124 
 
 127 
 
125 
begin
 128 
begin
126 
  StripIt(C_SIGNATURE);
 129 
  StripIt(C_SIGNATURE, false);
127 
 
 130 
 
128 
  StripIt(C_ASFX_CB_AVO);
 131 
  StripIt(C_ASFX_CB_AVO, true);
129 
  StripIt(C_ASFX_CB_OVR);
 132 
  StripIt(C_ASFX_CB_OVR, true);
130 
  StripIt(C_ASFX_CB_NEW);
 133 
  StripIt(C_ASFX_CB_NEW, true);
131 
  StripIt(C_ASFX_CB_ASK);
 134 
  StripIt(C_ASFX_CB_ASK, true);
132 
 
 135 
 
133 
  StripIt(C_ASFX_CP_NON);
 136 
  StripIt(C_ASFX_CP_NON, true);
134 
  StripIt(C_ASFX_CP_BEF);
 137 
  StripIt(C_ASFX_CP_BEF, true);
135 
  StripIt(C_ASFX_CP_AFT);
 138 
  StripIt(C_ASFX_CP_AFT, true);
136 
 
 139 
 
137 
  StripIt(C_ASFX_ET_HER);
 140 
  StripIt(C_ASFX_ET_HER, true);
138 
  StripIt(C_ASFX_ET_DES);
 141 
  StripIt(C_ASFX_ET_DES, true);
139 
  StripIt(C_ASFX_ET_ASK);
 142 
  StripIt(C_ASFX_ET_ASK, true);
140 
 
 143 
 
141 
  result := c;
 144 
  result := c;
142 
end;
 145 
end;
143 
 
 146 
 
144 
function BehaviorStrings(bh: TZipBehavior): string;
 147 
function BehaviorStrings(bh: TZipBehavior): string;