Like en Delphi comme VB? [Résolu]

Signaler
Messages postés
34
Date d'inscription
lundi 10 juin 2002
Statut
Membre
Dernière intervention
20 octobre 2009
-
Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
15 janvier 2021
-
Salut,
est-ce qu'il existe en Delphi une fonction équivalente au "LIKE" de vb ou de sql?

Dans le style :
"azerty" like "a*ty" renvoie true (ici en vb)

1 réponse

Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
15 janvier 2021

en voici une

Utilisation :

if like('Azerty','A*ty') then
showmessage('Azerty like A*ty')
else
Showmessage('Azerty Not Like A*ty');

Function like(A,b:string):Boolean;
var sarg,earg :string;
p :Boolean;
begin
result:=false;
if pos('*',b)>1 then
begin
sarg:=copy(b,1,pos('*',b)-1);
P:=True;
delete(a,1,(pos(sarg,a)-1)+length(sarg));
end
else
P:=False;
earg:=copy(b,pos('*',b)+1,length(b));
if ((not p) and ((pos(earg,a)+length(earg))=length(a))) or
(p and (pos(earg,a)>0)) then
result:=true;
end;