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
- Like en Delphi comme VB?
- Convertir projet Delphi en VB Express [Résolu] (Résolu) » Forum - Visual Basic 6
- Delphi vers VB [Résolu] (Résolu) » Forum - Delphi / Pascal
- Convertisseur delphi 7--> VB 2005 » Forum - VB.NET
- AIDER à convertir ce code en Delphi to vb.net » Forum - VB.NET
- Comment transformer du delphi en VB ? » Forum - Visual Basic
1 réponse
Meilleure réponse
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;
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 93 internautes ce mois-ci
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.