//Compare strings with '*' or '?' wildcards
function MatchStrings(source, pattern: String): Boolean;
var
pSource: Array [0..255] of Char;
pPattern: Array [0..255] of Char; function MatchPattern(element, pattern: PChar): Boolean; function IsPatternWild(pattern: PChar): Boolean;
var
t: Integer;
begin
Result := StrScan(pattern,'*') <> nil;
if not Result then Result := StrScan(pattern,'?') <> nil;
end;begin
if 0 = StrComp(pattern,'*') then
Result := True
else if (element^ = Chr(0)) and (pattern^ <> Chr(0)) then
Result := False
else if element^ = Chr(0) then
Result := True
else begin
case pattern^ of
'*': if MatchPattern(element,@pattern[1]) then
Result := True
else
Result := MatchPattern(@element[1],pattern);
'?': Result := MatchPattern(@element[1],@pattern[1]);
else
if element^ = pattern^ then
Result := MatchPattern(@element[1],@pattern[1])
else
Result := False;
end;
end;
end;
begin
StrPCopy(pSource,source);
StrPCopy(pPattern,pattern);
Result := MatchPattern(pSource,pPattern);
end; Exemple : on utilise un composant ShellListView1 et un composant ShellTreeView1 et un bouton
Quand on clique sur le bouton, on peut taper le filtre de son choix (*.txt, img*.jpg, i??ge.*) et la liste ne selectionnera que les fichiers qui correspondent au masque de recherche . (Ne pas oublier de mettre la proprié´© multiselect à ´rue)
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ShellCtrls;type
TForm1 = class(TForm)
ShellListView1: TShellListView;
ShellTreeView1: TShellTreeView;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ D飬arations priv饳 }
public
{ D飬arations publiques }
end; var
Form1: TForm1; implementation {$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var tmp, FileName : string;
i : integer;
begin
tmp:='*.*';
if not inputquery('Files select','Type of file Ex : *.txt',tmp) or (tmp='') then exit;
begin
for i:=0 to ShellListView1.Items.Count-1 do
begin
FileName:=ShellListView1.Folders[i].PathName;
ShellListView1.Items[i].Selected:=MatchStrings(FileName,tmp);
end;
end;
end;
On peut 駡lement utiliser une fonction delphi qui fait partie de l'unité asks function MatchesMask(const StringToMatch, Mask: string): Boolean; description
Renvoie True si la chaine correspond au parametres de la chaine de format (le masque).Les caract貥s g鮩riques sont l'ast鲩sque (*)et le point d'interrogation (?).
Un ast鲩sque correspond à µn nombre quelconque de caractè²¥s.
Un point d'interrogation correspond à µn caractè²¥ arbitraire unique. L'aide de Delphi sp飩fie clairement que cette fonction ne gè²¥ pas seulement les noms de fichier.
On peut donc l'utiliser sur des textes. La fonction genere une exception si le masque est syntaxiquement invalide. exampleconst s = 'http://technojoly.toto.com'; MatchesMask(s,'h?p://*') == FALSE
MatchesMask(s,'h??p://*') == TRUE
MatchesMask(s,'http://*') == TRUE
MatchesMask(s,'http://*.com') == TRUE
MatchesMask(s,'http://*.net') == FALSE
MatchesMask(s,'*.toto.com') == TRUE
MatchesMask(s,'toto.com*') == FALSE