A voir également:
- Delphi pos
- Delphi like - Meilleures réponses
- Vb like - Meilleures réponses
- Fonction Pos(). ✓ - Forum - Delphi / Pascal
- Chercher un caractère dans un string ✓ - Forum - Delphi / Pascal
- Remplacer chaine de caractère ✓ - Forum - Delphi / Pascal
- Utilisation d'une function ExtarctValVar(ligne):string; ✓ - Forum - Delphi / Pascal
- Question sur la fonction POS - Forum - Delphi / Pascal
1 réponse
cs_ManChesTer
- 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;
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;