cs_piwee34
Messages postés lundi 10 juin 2002Date d'inscription
20 octobre 2009
Dernière intervention
-
19 sept. 2002 à 11:35 - Dernière réponse : cs_ManChesTer378
Messages postés vendredi 20 octobre 2000Date d'inscription
11 décembre 2013
Dernière intervention
- 19 sept. 2002 à 13:34
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;
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
