maxkleiner

const
  SHighResCounterError = 'High resolution counter error';
  
function CPUClockFrequency: Word64;
var
  Freq : int64;
begin
  Freq := 0;
  if not QueryPerformanceFrequency(Freq) then
    xraise (ETimerError2.Create(SHighResCounterError));

maxkleiner

procedure RegEX_ExtractDemo;
var regEx: TRegExpr; //or OleVariant if HISUtils;
InStr, ResStr: String;
begin
   ResStr:='';
   InStr:= 'Please e-mail us at support@mycompany.com or to sales@mycompany.com';
   // Create a regular expression
   regEx:= TRegExpr.create; //HISUtils.RegExpr;
   // Set regular expression pattern that specifies an e-mail address
   regEx.Expression:='\w+(\.[\w-]+)*@([\w-]+\.)+[a-zA-Z]{2,6}';

maxkleiner

maxkleiner

maxkleiner

maxkleiner

maxkleiner

maxkleiner

maxkleiner

maxkleiner

#my_default_dict = {}
from collections import defaultdict
# to prevent key error - KeyError: 't'
my_default_dict = defaultdict(int)

for letter in 'the red maXbox fox ran as fast as it could':
    my_default_dict[letter] += 1
    
print(my_default_dict)