Add(MainForm,2953706,21,105)
{
}
Add(Edit,14729050,70,105)
{
 Left=10
 Top=5
 Text="Ed*"
}
Add(Edit,15909518,140,105)
{
 Left=85
 Top=5
}
Add(Button,16659015,21,154)
{
 Left=10
 Top=35
 Caption="Mask"
 link(onClick,7370736:doData,[])
}
Add(Button,10948459,21,63)
{
 Left=85
 Top=35
 Caption="Compare"
 link(onClick,15627684:doCompare,[(110,69)(110,153)])
}
Add(LED,4053424,189,140)
{
 Left=160
 Top=15
}
Add(DoData,7370736,70,154)
{
 link(onEventData,15627684:doMask,[])
 link(Data,14729050:Text,[])
}
Add(StrMask,15627684,140,147)
{
 Point(doMask)
 link(onFalse,4053424:doOff,[])
 link(onTrue,4053424:doOn,[])
 link(Str,15909518:Text,[])
}

Add(MainForm,12868012,210,133)
{
 Position=1
}
Add(Edit,14729050,427,231)
{
 Left=10
 Top=5
 Width=75
 Text="Ed*"
}
Add(Edit,15909518,420,133)
{
 Left=110
 Top=5
 Width=95
}
Add(Button,10948459,308,168)
{
 Left=110
 Top=35
 Caption="Compare"
 link(onClick,15424608:doEvent1,[])
}
Add(LED,4053424,609,217)
{
 Left=230
 Top=15
}
Add(DoData,7370736,427,280)
{
 link(onEventData,15627684:doMask,[(512,286)(512,237)])
 link(Data,14729050:Text,[])
}
Add(StrMask,15627684,560,224)
{
 Point(doMask)
 link(onFalse,4053424:doOff,[])
 link(onTrue,4053424:doOn,[])
}
Add(ListBox,1658272,595,126)
{
 Left=10
 Top=85
 Width=205
 Height=155
}
Add(Hub,4695875,469,175)
{
 OutCount=3
 link(onEvent1,8948855:doEvent1,[(523,181)(523,132)])
 link(onEvent2,15627684:doCompare,[(514,188)(514,230)])
 link(onEvent3,8948855:doEvent2,[(533,195)(533,139)])
}
Add(Hub,8948855,546,126)
{
 InCount=2
 OutCount=1
 link(onEvent1,1658272:doAdd,[])
}
Add(DoData,12636045,420,175)
{
 link(onEventData,4695875:doEvent1,[])
 link(Data,15909518:Text,[])
}
Add(Hub,15424608,357,168)
{
 link(onEvent1,7370736:doData,[(399,174)(399,286)])
 link(onEvent2,12636045:doData,[])
}

procedure THIFileSearch.OutFiles;
var fn:string; i:integer;
begin
  fn := Name; {$ifdef F_P}UniqueString(fn);{$endif} CharLower(@fn[1]); 
  .............

  WHILE (Str^<>#0)and(Msk^<>#0) DO
    IF Msk^ = '*' THEN
      Result := _StrCmp(Str,Msk+1);
      IF Result THEN EXIT;
      ENDIF;
    ELSEIF Msk^ = '#' THEN
      IF Str^ IN ['0'..'9'] THEN INC(Msk);
      ELSE BREAK;
      ENDIF;
    ELSEIF (Msk^ = '?')OR(Msk^ = Str^) THEN INC(Msk);
    ELSE BREAK;
    ENDIF;
    INC(Str);
  ENDWHILE;
  WHILE Msk^ = '*' DO INC(Msk);
  ENDWHILE;
  Result := (Str^ = #0)AND(Msk^ = #0);

function _StrCmp(Str,Msk:PChar):boolean;
begin
  while (Str^<>#0)and(Msk^<>#0) do begin
    if Msk^ = '*' then  begin
      Result := _StrCmp(Str,Msk+1);
      if Result then exit;
    end else begin
      if Msk^='#' then Result := Str^in['0'..'9']
      else Result := (Msk^='?')or(Msk^=Str^);
      if Result then Inc(Msk)
      else exit;
    end;
    Inc(Str);
  end;
  while Msk^ = '*' do inc(Msk);
  Result := (Str^ = #0)and(Msk^ = #0);
end;

Add(MainForm,2953706,21,105)
{
 Position=1
}
Add(Button,10504036,168,105)
{
 Left=170
 Top=40
 link(onClick,11970995:doWork,[])
}
Add(InlineCode,11970995,252,105)
{
 WorkPoints=#6:doWork|
 EventPoints=#8:onResult|
 VarPoints=#4:Var1|4:Var2|
 DataPoints=#5:Data1|5:Data2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|4:uses|29:  Windows, KOL, Share, Debug;|0:|4:type|29:  THiAsmClass = class(TDebug)|11:    private|0:|10:    public|30:      Data1, Data2: THI_Event;|29:      onResult: THI_Event;   |54:      procedure doWork(var _Data: TData; Index: Word);|52:      procedure Var1(var _Data: TData; Index: Word);|52:      procedure Var2(var _Data: TData; Index: Word);|6:  end;|0:|14:implementation|0:|5:const|19:  STRCONST = 'AAA';|0:|0:|0:|60:procedure THiAsmClass.doWork(var _Data: TData; Index: Word);|3:var|13:  S: string; |5:begin|16:  S := STRCONST;|34:  CharLower(Pointer(S)); // Падает|29:  CharLower('BBB'); // Падает|4:end;|0:|0:|59:procedure THiAsmClass.Var1(var _Data: TData; Index: Word); |5:begin|22:  dtInteger(_Data, 0);|4:end;|0:|59:procedure THiAsmClass.Var2(var _Data: TData; Index: Word); |5:begin|22:  dtString(_Data, '');|4:end;|0:|4:end.|
}

function _StrCmp(Str, Msk: PChar): Boolean;
begin
  while (Str^ <> #0) and (Msk^ <> #0) do
  begin
    if Msk^ = '*' then
    begin
      Result := _StrCmp(Str, Msk + 1);
      if Result then Exit;
    end
    else
      if Msk^ = '#' then
      begin
        if Str^ in ['0'..'9'] then Inc(Msk)
        else Break;
      end
      else
        if (Msk^ = '?') or (Msk^ = Str^) then Inc(Msk)
        else Break;
    Inc(Str);
  end;
  
  while Msk^ = '*' do Inc(Msk);
  
  Result := (Str^ = #0) and (Msk^ = #0);
end;

function _StrCmp(Str, Msk: PChar): Boolean;
begin
  while (Str^ <> #0) and (Msk^ <> #0) do
  begin
    if Msk^ = '*' then
    begin //Statement-1
      Result := _StrCmp(Str, Msk + 1);
      if Result then Exit;
    end
    else if Msk^ = '#' then
    begin //Statement-2
      if Str^ in ['0'..'9'] then Inc(Msk)
      else Break;
    end
    else if (Msk^ = '?') or (Msk^ = Str^) then
      //Statement-3
      Inc(Msk)
    else
      //Statement-4
      Break;
    Inc(Str);
  end;

  while Msk^ = '*' do Inc(Msk);

  Result := (Str^ = #0) and (Msk^ = #0);
end;