[yunqa.de] Re: Cannot install DIRegEx 6.3.1
- From: Delphi Inspiration <delphi@xxxxxxxx>
- To: yunqa@xxxxxxxxxxxxx
- Date: Thu, 29 Mar 2012 18:57:46 +0200
On 29.03.2012 18:28, TCW wrote:
> I am tring to install package DIRegEx_DXE2.bpl (v6.3.1).When I compile
> the package I get the following 2 error messages:
>
> [DCC Error] DIRegEx_Workbenck_Form.pas(321): Number of elements (24)
> differs from declaration (25)
> [DCC Error] DIRegEx_Workbenck_Form.pas(323): Number of elements (18)
> differs from declaration (19)
>
> const
> 321) COG: array[_TDIRegExCompileOption_] of Byte = (// Compile
> Option Group
> 0, 0, 0, 0,
> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 0, 0);
> 323) MOG: array[_TDIRegExMatchOption_] of Byte = (// Match Option
> Group
> 0, 0, 0,
> 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 0, 0, 0);
Ups, I missed that. Fortunately, it is easily fixed.
In DIRegEx_Workbench.pas like add a new "0," to the beginning of both the COG
and MOG array elements. This is how it should look like:
procedure TfrmDIRegExWorkbench.FormCreate(Sender: TObject);
const
COG: array[TDIRegExCompileOption] of Byte = (// Compile Option Group
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 0, 0);
MOG: array[TDIRegExMatchOption] of Byte = (// Match Option Group
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 0, 0, 0);
Thanks for the quick notification, I will release a DIRegEx hotfix shortly.
Ralf
_______________________________________________
Delphi Inspiration mailing list
yunqa@xxxxxxxxxxxxx
//www.freelists.org/list/yunqa
Other related posts:
