Used for TTagBlockCondition.OnBlockCheck event.
TOnBlockCheck = procedure (Sender: TObject; Client: TClientSyntAnalyzer; const Text: ecString; var RefIdx: integer; var Accept: Boolean) of object;
ecSyntAnal
Use OnBlockCheck to perform custom block checking. Use Client as a tokens source. Accept is equal to result of block rule testing. Set Accept to True if your block testing is successful.
RefIdx contains indexing reference point (by default, RefIdx = Client.TagCount - 1). You can change this parameter.
Copyright (c) 2004-2011. All rights reserved.
|
What do you think about this topic? Send feedback!
|