Delphi学习:2个不错的通配符比较函数

　　//Continue testing next char...
　　Inc(aSource);
　　Inc(aPattern);
　　end;

　　'[': begin //Match given set of chars.
　　if (aPattern[1] in [#0,'[',']']) then
　　begin
　　//Invalid Set - So no match.
　　Result := False;
　　Exit;
　　end;

　　if (aPattern[1] = '^') then
　　begin
　　//Match for exclusion of given set...
　　Inc(aPattern, 2);
　　Result := True;
　　while (aPattern[0] <> ']') do
　　begin
　　if (aPattern[1] = '-') then
　　begin
　　//Match char exclusion range.
　　if (aSource[0] >= aPattern[0]) and (aSource[0] <= aPattern[2]) then
　　begin
　　//Given char failed set exclusion range.
　　Result := False;
　　Break;
　　end else
　　Inc(aPattern, 3);
　　end else
　　begin
　　//Match individual char exclusion.
　　if (aSource[0] = aPattern[0]) then
　　begin
　　//Given char failed set element exclusion.
　　Result := False;
　　Break;
　　end else

　　Inc(aPattern);
　　end;
　　end;
　　end else
　　begin
　　//Match for inclusion of given set...
　　Inc(aPattern);
　　Result := False;
　　while (aPattern[0] <> ']') do
　　begin
　　if (aPattern[1] = '-') then
　　begin
　　//Match char inclusion range.
　　if (aSource[0] >= aPattern[0]) and (aSource[0] <= aPattern[2]) then
　　begin
　　//Given char matched set range inclusion.
　　// Continue testing...
　　Result := True;
　　Break;
　　end else
　　Inc(aPattern, 3);
　　end else
　　begin
　　//Match individual char inclusion.
　　if (aSource[0] = aPattern[0]) then
　　begin
　　//Given char matched set element inclusion.
　　// Continue testing...
　　Result := True;
　　Break;
　　end else
　　Inc(aPattern);
　　end;
　　end;
　　end;

　　if (Result) then
　　begin
　　//Match was found. Continue further.
　　Inc(aSource);
　　//Position Pattern to char after "]"