TTMSFNCTreeView Filter Exception

FNC TMS FNC UI Pack
1

In the trial version, I created the application and everything works, after installing the full version, the application stopped working. I created a simple test:

procedure TForm1.FormShow (Sender: TObject);
var
Filter: TTMSFNCTreeViewFilterData;
begin
Filter: = TMSFNCTreeView1.Filter.Add;
Filter.Column: = 0;
Filter.Condition: = '!TEST*'; // Fail
// Filter.Condition: = 'TEST*'; // It`s OK
TMSFNCTreeView1.ApplyFilter;
end;

After starting the application, "Range check error" exception occurs in FMX.TMSFNCUtils.pas Matches.

2

Hi,

We have fixed this issue, the next version of TMS FNC Core will address this.

3

Can you give me a function Matches code fix before the update is released?

4

You can use {$RANGECHECKS OFF} {$RANGECHECKS ON} around the function in FMX.TMSFNCUtils.pas to workaround the issue.

5

It works, thank you

1 Like