Frement
2010-12-14 07:10:35
{*******************************************************************************
function IsUpTextEx(Text: String): Boolean;
By: Frement
Description: Checks for UpText using wildcards.
Example: IsUpTextEx('?tt?ck???bl?n');
*******************************************************************************}
function IsUpTextEx(Text: String): Boolean;
begin
Text := Replace(Text, '?', '.');
Result := ExecRegExpr('.*'+Text+'.*', GetUpText);
end;
{*******************************************************************************
function IsUpTextRe(RegEx: String): Boolean;
By: Frement
Description: Checks for UpText using regular expressions.
Example: IsUpTextRe('.*tt.ck.*blin.*');
*******************************************************************************}
function IsUpTextRe(RegEx: String): Boolean;
begin
Result := ExecRegExpr(RegEx, GetUpText);
end;The functions are pretty self-explanatory.