Like en Delphi comme VB? [Résolu]

cs_piwee 34 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_ManChesTer 378 Messages postés vendredi 20 octobre 2000Date d'inscription 11 décembre 2013 Dernière intervention
- 19 sept. 2002 à 13:34
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)
Afficher la suite 

1 réponse

Répondre au sujet
cs_ManChesTer 378 Messages postés vendredi 20 octobre 2000Date d'inscription 11 décembre 2013 Dernière intervention - 19 sept. 2002 à 13:34
+3
Utile
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;
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_ManChesTer

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.